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SYMBOLS 


a constant 

eddy transverse length scale 

radial location of the maximum distortion in 
the cone model 

order Clauert coefficients 

a mode amplitude, or coefficient of eigenfunc- 
tion expansion of the pressure spectral density 

blade spacings of a two-dimensional cascade of 
blades 

airfoil chord lengths 

switches used in the generalized equations 
for the potential flow field interactions 

airfoil section drag coefficient 

axial spacing between midchords of two blade 
rows 


slope of steady lift versus angle of attack 


a function defined by equation (B41) 

a function defined by equation (2.1.22) 

a function defined by equation (2.1.15) 

unit vector perpendicular to airfoil 
chordline 

z-component of e 

^-component of e 

bandpass filter factor; see equation (3.3.23) 



f 


ratio of maximum camber to the half-chord of 
a thin airfoil 


F 


F, 


strength of single dipole or a surface distri- 
bution of dipoles; also, function defined by 
equation (3.1.15) 

spectral density of the strength of a single 
dipole, or a surface distribution of dipoles 


F function defined by equation (3.1.20) 

a 


F 


f 


function defined by equation (3.1.21) 


G 

mn 


V 


G 


mno 


complex term in the equation for the induced 
velocities resulting from a potential flow 
field interaction 


G a,l’ G k,K1 


airfoil acoustic response function, defined 
by equation (3.1.39) 


h 


H u> 

m 

„( 2 ) 

o 


oblique gust wave number 

the nondimensional dipole surface density re- 
sponse function for convected, harmonic gusts 

Hankel function of the first kind of order m 

th 

Hankel function of the second kind of zero 
order 


„(2) Hankel function of the second kind of order 

1 one 


V 2 ’ H k,K2. 


1 


l 


1 


complex term in the equation for the induced 
velocities resulting from a potential flow 
field interaction, equation (3.2.31) 

modified Bessel function of the first kind 
and order Z 

dummy index or blade number index 


J 

m 

Bessel 

function 

of 

order 

m 

J o 

Bessel 

function 

of 

order 

zero 


Bessel 

function 

of 

order 

one 


vi 



k 

K 

*L 

K mn 

K o,l’ K k,K1 


l 

L 



m 


H 


V M 1E’ M 2E’ M 3E’ “e.K 
“i* “il* M 2I* M 3I’ ^H,K1 


wave number ; also , dummy index 

one-dimensional Fourier space wave number 

Kemp-Sears lift response function 

axial propagation wave number of mn^ mode 

complex conjugate of Kemp-Sears lift response 
function 

dummy index, or harmonic index 

airfoil section lift force 

spectral density of airfoil section lift 
force 

eddy axial length scale 

polar angle harmonic index, or spinning mode 
index 

duct uniform, axial flow velocity for acoustic 
calculations 

mean exit velocity from a blade row, relative 
to the blades of the row 

mean inlet velocity to a blade row, relative 
to the blades of the row 


V M 1M’ M 2M’ M 3M 

mean velocity through a blade row, relative 

\v \r V * Vki t0 the blades of the row 

M M,K2 


*1 


tip velocity of rotating blades 


M 

z 


> 


M lz’ M 2z’ M 3z’ M Z,K 


mean axial flow velocity 



mean axial flow velocity when there is steady 
dis tortion 


n 


dummy index, harmonic index, or radial mode 
index 


number of blades in a blade row 


vii 


N, N^, N 2> N 3 , N r2 



p 

A 

P 


q 


Q 


o,2 


r 



R 


R 

m 

R* 


s 

mn 


S 

SPL 

t 


t 


o’ 


t 

s 


T 


T+ 


T 

z 


» 



U 


linear pressure perturbation 

spectral density of linear pressure pertur- 
bation jgHirJ 

exponent in the "power law," equation (3.3.8) 

complex term in the equation for the induced 
velocities resulting from a potential flow 
field interaction, equation (3.2.3) 

position vector, field location 

position vector, source location 

radial location of eddy center 

unnormalized radial eigenfunction 

distance from origin in Prandtl-Glauert scaled 
coordinates 

th 

axial propagation wave number of mn mode in 
Prandtl-Glauert scaled coordinates and 
frequency 

Sears function 

sound pressure level, measured in decibels 
time at field location 
time at source location 
function defined by equation (3.1.17) 

Filotas lift response function 
eddy temporal length scale 

relative velocity of two-dimensional cascade 
of blades 


Uj spectral density of perturbation velocity 

V gust convection velocity 

value of the maximum velocity distortion in 
the cone model 


viii 



V 1 


value of the velocity at the outer radius in 
the cone model 

W, w 


perturbation velocity, viscous wake defect, 
unsteady induced velocity 

w 


single spatial Fourier transform of W 

w 


double spatial Fourier transform of W 

w , w 

Z (j) 


perturbation velocity components at the eddy 
center 

w zr V 


i.*"* 1 Fourier series coefficient of the eddy 
velocity components 

I — r 

t t 


Y, Y , Y , 

h’ v j 

rectangular coordinate 

Y* 

is 


rectangular coordinate 

Y 

m 


Neumann function of order m 

Y 

o 


width of viscous wake; also, Neumann function 
of order o 

Z. Z', Z\ 

z i 

rectangular coordinate 

z’ 

*■3 


rectangular coordinate 

Z M.C. 


axial position of midchord plane 

* 


multiplier 

a 


mean blade angle of attack 

6 


relative stagger angle 

®mn 


square root term defined by equation (2.1.16) 

Y , Y l, Y 2, 

Y K1, Y K2 

stagger angle 

A 

Y 


Helmholtz equation Green's function 

r 


acoustic propagator 

r r 
2 * *K2 


steady-state circulation of cascade airfoil 

ix 



6 


Dirac delta function 


^m-£,oN 

A 

o 



e 


C 

n 




Kronecker delta symbol 

factor in viscous wakes formula, equation 
(3.1.35) 

axial eddy strength modulation function 

small, positive constant; also, unit step 
function 

rectangular coordinate normal to the airfoil 

hub-to-tip ratio, annular duct inner radius 

inverse cosine of nondimensionalized chord- 
wise coordinate 

temporal or spacial harmonic index 

chordwise compactness parameter; see 
equation (2.2.18) 

wave number; also, reduced complex frequency 
of the chordwise velocity distribution 

Fourier coefficients of typical wake profile 

complex frequency of the chordwise velocity 
distribution 


M mn annular duct eigenvalue 

V ’ v fc* v 0 » v i> v 0 1’ V k K1 reduced frequency 
£ chordwise rectangular coordinate 

i 

£ chordwise rectangular coordinate nondimen- 

sionalized to the half-chord 

P, P o * P s polar radial coordinate of cylindrical 

s coordinate system 

a temporal Fourier series coefficient, dummy 

index used in summations 


x time delay resulting from the axial distance 

between the midchord plane and the eddy center 
position at the temporal prigin ; also, t - to 


x 



* * *o » *s ’ *M.C. 

» 4 > 

«*> 

* 


(D , OJ* , U) 

0,1 

n 

Subscripts: 

E 

I 

J 

K 

K1 

K2 

£ 

m 

M 

M. C. 
n 
S 
z 

K 

0 

<P 


o 


polar angle coordinate of cylindrical 
coordinate system 

polar angle coordinate of eddy center 

relative exit flow angle; also, oblique gust 
angle 

angular frequency 
angular velocity of rotor 

blade row exit flow 
blade row inlet flow 
j th blade 
either Kl or K2 
sound-producing blade row 
velocity-inducing blade row 
spatial harmonic index 
spinning mode index 
blade row mean flow 
midchord point location 
radial mode index 
source 

axial direction, axial eddy velocity 
component 

either a or £ 

temporal Fourier series index 

angular direction, angular eddy velocity 
component 

source 


xi 



inlet stator parameter, upstream component in 
viscous wakes interaction, or unsteady lift- 
producing component in potential flow field 
interaction 

rotor parameter, downstream component in 
viscous wakes interaction, or velocity-inducing 
component in potential flow field interaction 

outlet stator parameter 


downstream (+) and upstream (-) propagation 
complex conjugate 

complex conjugate; also, generalized Prandtl- 
Glauert transform , variable 

blade-attached rectangular coordinate non- 
dimensionalized to the half-chord 

vector 

temporal Fourier integral transform 

spacial Fourier series transform 

blade -attached rectangular coordinate system 
in viscous wakes interaction, polar angle in 
the rotating system, or averaged value of a 
variable 

double spatial Fourier series transform 



1.0 INTRODUCTION 


The subprograms described herein are designed to calculate the acoustic 
pressure annular duct mode amplitudes for a given harmonic of blade passing 
frequency, with upstream or downstream propagation, for the acoustic sources 
described in volume I. Subroutines AAAAA, AABAA, BCDAA, and BBCAA are the pri- 
mary subprograms provided for this purpose. These subroutines, along with the 
secondary subprograms, are described in section 3. The primary and secondary 
subprograms receive standardized treatment, if they are considered as special- 
purpose routines dependent on the details of the primary subroutine ; otherwise, 
as in the case of the general-purpose math routines, the secondary subprograms 
receive nonstandardized, or general-purpose , treatment. 

A subprogram is treated in a standardized way by having all of its FORTRAN 
variable names drawn from a dictionary of such names. Thus, any name used in 
any of the standardized subprograms is defined in the dictionary and nowhere 
else, and has the definition and use given it in the dictionary and no other, 
regardless of the subprogram in which it is used. 

In the description of a subprogram, the question of output variable 
accuracy is generally answered by placing the operation performed in producing 
the output in one of a number of categories. Thus, the output variable may be 
limited in accuracy by the particular computer, or machine, or by the nature 
of the algorithm. If the algorithm is of the converging iteration type, then 
the convergence criterion sets the accuracy. If the algorithm results from an 
approximation formula, then the remainder term associated with the approximation 
sets the accuracy. These are not always specified in detail for each subprogram, 
but a note is made when necessary to indicate whether the accuracy is limited 
by the algorithm or not. Comparison with other sources is made when comparable 
numbers are available. 



2.0 DICTIONARY 


This dictionary replaces the list of definitions usually included in a 
subprogram description for all the subprograms written specifically for this 
work. General mathematical routines are documented in the usual way. The pur- 
pose of the dictionary is to standardize the use and definition of all FORTRAN 
variable names within the several primary and secondary subprograms. This is 
desirable for purposes of modifying or updating the routines as well as aiding 
in understanding the coded algorithms and the relationships between the dif- 
ferent subprograms. 


2.1 Guide to Dictionary 

For each FORTRAN name, the dictionary indicates: 

1) The subprograms in which the variable appears; see location code 

2) The function performed by the variable in each subprogram in which 
it appears ; see function code 

3) The variable definition, by a phrase or sentence 

Items 1 and 2 are contained in the location- function code (LOC-FNC code) 

occupying the middle column of the dictionary. In many cases, the item 3 
definitions contain equations and figure numbers. All equation numbers refer 
to the equations in appendix I of volume I; all figure numbers refer to the 
figures of volume I. 



Nation 



MAAA 

ZEROS 

1 

S ^Tl 0li 

3 


b 

Sat &QtOt 

5 

FACTUM 

6 

aa^u 

7 

toCTSfS 

9 

lI FTFH 2 

10 

bczm 

H 

EGtrVAZz 

IS 

p ACTUf 3 

13 

Ll FTPlt 3 

lb 

blSUfrp 

15 

83CAA 

16 

HONcpp 

17 


facthhi 1Q 

tvimtif 19 


21 


CODE 



A PRojq 
arrows 

50 

J ARRA2t 

52 

gauss 

ss 

SSSls 

S3 

Sjtyjp 

5b 

tol'FUp 

ss 

GAUSss 

56 

xocabes 

57 

AlGAt’ip 

58 

8ESIE 

59 

SB8JL4 

60 

SZ8IIX 

61 

zesik 

6s 

8101 

63 

GRTl&cx 

6b 


65 


3 



FUNCTION CODE 


Function Code 

Calling sequence input 1 

Calling sequence input /output 2 

Special calling sequence: the fev 2S 


variables and arrays that are reused 
in subsequent calls to the primary 

subroutine — they must not be changed 


by the user 

Calling sequence output 3 
Internal name 4 
Name in common 5 
Name of subroutine 6 
Name of function subprogram 7 


2.2 Dictionary of FORTRAN Names 
LOC-FNC 

code Definition 

1-6 Primary subroutine which calculates the 

acoustic pressure mode amplitudes result- 
ing from the interaction of a turbomachinery 
blade row with the viscous wakes of another 
upstream-located blade row 

AABAA 9-1 Primary subroutine which computes the 

acoustic pressure mode amplitudes resulting 
from the interaction of a turbomachinery 
blade row with the potential flow field of 
an adjacent blade row 


FORTRAN 

name 

AAAAA 


4 



FORTRAN 

name 

ABN 

LOC-FNC 

code 

Ik-U 

Definition 

Array of dimension 2 which contains the 
cosine and sine distortion coefficients 
aj A |(p), b| A |(p) of index |t| and radial 
position p 

ABSLAM 

11-1* 

Absolute value of the complex variable 

LAMDA, [ A | 

ABSKAPA 

18-4 

Absolute value of RKAPA, Ik | 

1 mno 1 

ABSNU 

15-1* , 18-1*. 
21-1* 

Absolute value of the reduced frequency 
RHU, M 

ALFA 

19-1* 

The blade angle of attack, a; this quantity 
is input in AR(I,11,IC) as a function of 
radial position 

ALGAMF 

59-6 

The standard LRC subroutine which computes 
the log of the gamma function for complex 
arguments 

ALPHA 

21-1*, 21-5, 
65-5 

Tan 0 , where 0 is the gust yaw angle used 
in the Filotas lift response function; 
also, name of common block containing ALPHA 

ALPIIAMN 

1-3, 9-3, 
12-3,17-3 

Complex array of dimension NDUl x MDIM 

which contains the matrix of mode amplitudes , 

a , where a = ALPIIAMN (H, I) with M = 
mn mn 

MUSE ( I ) 

APROXI 

3-1*, 50-6 

Subroutine which calculates approximate zeros 
of equation (6), where .2 < n < 1.0 (n is the 
hub-to-tip ratio) 


5 



FORTRAN 

name 

APR0X2 


AR 


LOC-FNC 

code Definition 

3- 1 * ,51-6 Subroutine which calculates approximate 

zeros of equation (6), where 0 < n < .2 


1-1, 7-1 ,9-1, 
10-1, 12-1, lU-1, 
17-1,19-1 


Array of dimension MAXDIM x MAXJ x 3, 
where AR(l,J,K) contains data described 
as follows: 


K = 1: Inlet stator data 

K = 2: Rotor data 

K = 3: Outlet stator data 


J = 1: 

J = 2: 
J = 3: 
J = 1»: 
J = 5: 

J = 6 : 

J = 7: 
J = 8: 
J = 9: 


Nondimensional duct radial 
position, p 

Nondimensional chord, C(p) 

Not used 

Drag coefficient, C D (p) 

Steady-state lift coefficient, 

C (p), which is not required as 
Li 

an input for any of the existing 
primary subroutines 
Derivative of C T with respect to 

li 

incident angle, a 


Relative inflow Mach number of a 
blade row, M^(p); see figure 3 
Relative exit flow Mach number of 
a blade row; M^(p); see figure 3 
Axial flow Mach number, M (p); 

lx 

see figure 3 
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FORTRAN 

name 


LOC-FNC 

code 


Description 


Note: ARMISC(l8+K) can be 
zero, in which case 
no Glauert coefficients 
are input. 


J = 10: Glauert coefficients of order 0 
J = 11: Glauert coefficients or order 1 


J = ARMISC(l8+K) + 9: Glauert coefficients 
of order ARMISC(l8+K) -1 


If ARMISC(25) - 3, 



ARMISC(l8+K) + 10: The ratio of maxi- 
mum blade camber to the half-chord, 
f(p), used in the lift response 
function 

ARMISC(l8+K) + 11; The blade angle of 
attack, a( p ) , used in the lift response 
function 


If ARMISC(22) = 2, 


If ARMISC(22) = 3 


J = ARMISC(l8+K) + P: Parameter a^, which 
is used in the power model, where: 

P = 10 if ARMISC(25) 5* 3 
P = 12 if ARMISC(25) = 3 



ARMISC(l8+K) + P: Cosine distortion 
coefficient of index r, a 

r 

ARMISC(l8+K) + P+1: Sine distortion 
coefficient of index r, b 

r 

ARMISC(l8+K) + P+2: Cosine distortion 

coefficient of index 2*r, a_ 

2*r 
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FORTRAN 

name 


Description 


LOC-FNC 

code 


If ARMISC(22) = 3 
(concluded) 


ARG 


16 -U 


ARGETA 5-U 


ARGEXP 


|J = ARMISC(l8+K) + P+2 •MAXCOEF+1 : Sine 
distortion coefficient of index 

MAXC0EF,r * b MAXCOEF.r’ where: 

P = 10 if ARMISC(25) / 3 

P = 12 if ARMISC(25) = 3 

r = MULTFCT 


1 = 1: The number of radial positions, 

where the parameters contained 
in the AR array are defined 
or 

0 if only a value averaged in 
the radial direction is given 
for the (K,J) parameter in 
the AR array 


1=2: Radially averaged value of the 

"fch 

(K,J) parameter of the AR array 

1=3: / Set of values corresponding to 
I = U: \ nondimensional duct radial 

• / positions. The nondimensional 

• I duct radial positions must be in 

• I increasing order. 

Argument -2.$ of the exponential in 
equation (4Q) 


Product of eigenvalue and hub-to-tip 

ratio, v »ri 
mn 


Argument of the exponential in the constant 
factor of the integrand; see equations (33), 
(1+5), (53), (57) 
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FORTRAN LOC-FNC 

name code Description 

ARGEXP2 7-b Argument of the exponential in the 

oscillatory factor of the integrand; see 
equation (36) 

ARGS 5-U Argument (g *S) of the unnormalized 

mn 

duct radial eigenfunction R^ in equation 

(6). It is actually the product of an 

eigenvalue u and the dummy argument S 
mn 

of subroutine UNEGNFH. 

ARHO 10-1+ Variable a , (p) as defined in equation 

1C K1 

(38) 


ARMISC 


1-1 ,7-1, 9-1, 
10-1, 12-1, lU-1, 
17-1,19-1 


Array of dimension U0, where ARMISC(l) 
contains data described as follows: 

1=1: Nondimensionalized average dis- 

tance between the midchord planes 
of the inlet guide vanes and the 
rotor; see figure 1 

1=2: Nondimens ional average distance 

between the midchord planes of 
the rotor and the outlet guide 
vanes ; see figure 5 

1=3: Hub-to-tip ratio, n 

I = 1+: Option IFLOW, where: 

-1 indicates upstream sound 
propagation 

1 indicates downstream sound 
propagation 


9 



FORTRAN LOC-FNC 

name code 


ARMISC 

(continued) 


Description 

1=5: Option ISOROS, where: 

1 indicates inlet stator-rotor 
interaction 

2 indicates rotor-outlet stator 
interaction 

1=6: Option ITRACE, where: 

0 indicates no printout 

1 indicates printout from pri- 
mary subroutine 

2 indicates printout from pri- 
mary subroutines and subroutine 
ZEROS 


1=7: Rotor blade tip Mach number , 

1 = 8: Number of inlet, stator vanes, 

N ISV 

1=9: Number of outlet stator vanes, 

N osv 


1=10: Number of rotor blades , N, 


RB 


I = 11: Not used 


I = 12: Phase angle for adjustment of 

skewness of the incident wake at 
the outlet stator, 

Ub 

see figure 14 


in radians; 



FORTRAN 
name 

ARMISC 
(continued) 

see figure 14 

I * lit: Harmonic index, o 

I = 15: Axial position of the inlet 

stator, Z JS 

I * 16: Axial position of the outlet 

stator, Z QS 

I = 17: Axial position of the rotor, Z 

K 

I = 18: Option IAERO, where in a poten- 

tial flow field interaction: 

-1 indicates the upstream blade 
row is the sound generator 
1 indicates the downstream 

blade row is the sound generator 

I = 19: Humber of inlet stator vane 

Glauert coefficients 

I = 20: Humber of rotor blade Glauert 

coefficients 


LOC-FNC 

code Description 

I = 13: Phase angle for adjustment of 

skewness of the incident wake 
at the rotor. d>_. in radians: 


I = 21: Humber of outlet stator vane 

Glauert coefficients 



Description 

Distortion model selector, where: 

0 indicates no distortion 

1 indicates distortion is 
represented by the cone model; 
see equation (1*8) 

2 indicates distortion is 
represented by the power model; 
see equation (1*9) 

3 indicates that the distortion 
coefficients are input; see 
equation (50) 

I * 23: Distortion input, where: 

If ARMISC(22) = 1, ARMISC(23) = 
VADBV1 . 

If ARMISC ( 22 ) = 2, ARMISC(23) = Q. 
If ARMISC (22) = 3, ARMISC(23) = 
MAXCOEF. 

I - 2k: Distortion input, where: 

If ARMISC (22) = 1, ARMISC (2U) = 
CAPADIS. 

If ARMISC ( 22 ) = 3, ARMISC(2l*) = 
MULTFCT . 

I = 25: Lift response function selector, 

where : 

2 indicates the generalized Sears 
lift response function (LIFTFN2) 
used with the primary subroutine 
AABAA; see equation {2k) 


FORTRAN LOC-FNC 

name code 

ARMISC 

(continued) 
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FORTRAN 

name 


Description 


LOC-FNC 

code 


ARMISC 

(continued) 


I = 25: 3 indicates the combination of 

lift response functions as 
developed in reference 6 (LIFTFN3), 
or the lift response function for 
noncompact source theory NONCPT 
(see ARMISC [ 38 ]). It can be used 
with the primary subroutines 
AAAAA, BBCAA, and BCDAA; see 
equation (22). 

U indicates the Filotas lift 

response function (LIFTFIlM used 
with the primary subroutine BBCAA; 
see equation (25) 


I = 26: Not used 

I = 27: Not used 

I = 28: Nondimensional radial position 

of the eddy center, R 

I = 29: Angular position of the eddy center, 

$, in radians 

I = 30: Axial eddy velocity component, W , 

Li 

at the eddy center, nondimension- 
alized with the average axial flow 
velocity; see figure 10. 

I = 31: Angular eddy velocity component, 

W , at the eddy center, nondimen- 
sionalized with the average axial 
flow velocity; see figure 10 

I = 32: Nondimensional eddy length scale in 

the direction normal to the average 
flow velocity for the axial eddy 
velocity component, a^; see 
figure 10 
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FORTRAN 

name 


LOC-FNC 

code 


Description 


ARMISC 

(concluded) 


I = 33: Nondimensional eddy length scale 

in the direction normal to the 
average flow velocity for the 
angular eddy velocity component , 
a^ ; see figure 10 

1=3^: Nondimensional eddy length scale 

in the direction of the average 
flow velocity for the axial eddy 
velocity component; L ; see fig- 

Li 

ure 10 

I - 35: Nondimensional eddy length scale 

in the direction of the average 

flow velocity for the angular 

eddy velocity component , L , ; see 

<P 

figure 10 

I = 36: Upper hound of the frequency band 

considered in the generation of 
tone duct mode amplitudes by non- 
steady distortion, B; see figure 11 
I » 37: Time when eddy center is located in 

rotor plane, x 

I = 38: Compactness selector 

0 indicates compact source option 
(LIFTFN3 is used) 

#0 indicates noncompact source option 
(NONCPT is used); can be used only 
if ARMISC (25) = 3 
I = 39: Not used 

I = Uo : Not used 
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FORTRAN 

name 


ARMUMN 


AV 


LOC-FNC 

code Description 

l-2S,3-3,9-2S, Array of dimension NDIM x MDIM which 

12-2S,13-3, contains the matrix of eigenvalues where 

17-2S ARMUMN (H,M) = 


Array of dimension 11 which contains 
radially average values. An average 
value is calculated if a set of values 
is used. The input average value is used 
if this is indicated by a 0 in the cor- 
responding element AR(l,J,K) or array AR. 

The contents of AV(l) are described as 
follows : 

I * Is Midpoint of the subinterval 

locally used in the integration 
of the integral of equation (9) 

Average inlet stator vane chord 
if ISOROB * 1 

Average rotor blade chord if 
XBOROS ■ 2 

Used with primary subroutine 
AAAAA only. 

I * 3: Average blade chord of the sound- 

generating blade row 

Average inlet stator vane drag 
coefficient if I60R0S ■ 1 
Average rotor blade drag coefficient 
if ISOROS * 2 

Used with primary subroutine 
AAAAA only. 

I ■ 5» Not used 
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FORTRAN 

name 

AV 

(concluded) 


AVSPAN 

AXIALM 

A1 

A2 


LOC-FNC 

code 


Description 


1 = 6 : 

1 = 7 : 

1 = 8 : 

1 = 9: 

I = 10: 

I = 11: 


Average derivative of the steady- 
state lift coefficient with 
respect to the angle of incidence 
for the sound-generating blade row 
Average relative inflow Mach 
number of the sound-generating 
blade row 

Average relative exit flow Mach 
number of the sound-generating 
blade row 

Average axial flow Mach number of 
the sound-generating blade row 
Average value of f, the ratio of 
the maximum camber to the half-chord 
for the sound-generating blade row 
Average value of a, the blade angle 
of attack for the sound-generating 
blade row 


1-1* ,12-U, 17-1* Midpoint of the subinterval locally used in 

the computation of the integral of equation 
(9). It is equivalenced to AV(l). 


1-1*, 9-1*, Average axial Mach number of the sound- 

12-1*, 17-1+ generating blade row 


U-l* 


A value of J^(x), Bessel function of first 
kind and order M 


1 *- 1 * 


A value of J M+1 ( X ) » Bessel function of 
first kind and order (M+l) 
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FORTRAN 

name 


A3 


Ak 


B 


BBCAA 


BCDAA 


BES 


BESIE 


LOC-FNC 

code 

k-U 


h-k 


9-5,10-5 


17-6 


12-6 


Description 

A value of Y^(x), Bessel function of second 
kind (the Neumann function) and order M 

A value of Y...,(x), Bessel function of 

M+x 

second kind (the Neumann function) and 
order (M+l) 

In the case of an inlet guide vane-rotor 
interaction (K1+K2 * 3) , B = ARMISC(l). 

In the case of a rotor-outlet guide vane 
interaction (K1+K2 = 5) , B « ARMISC(2). 

Primary subroutine vhich computes the 
acoustic pressure mode amplitudes result- 
ing from the interaction of a rotor with 
the non steady distortion resulting from a 
convected eddy 

Primary subroutine which computes the 
acoustic pressure mode amplitudes result- 
ing from the interaction of a rotor with a 
distorted inflow 


^-5,5-5,10-5 Array of dimension 1000 in common block 

11-5,15-5,18-5, SCRATCH used as a scratch array by Bessel 

19-5,21-5 function subroutines 

19-^ The subroutine which computes I^(x)e 

when I is the modified Bessel function, Z 
is an integer, and x is a real argument 
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FORTRAN 

LOC-FNC 


name 

code 

Description 

BESIEJ 

19-U 

Array of dimension 2 which contains values of 

, - 1, 

with 1^ a modified Bessel function of order 
£; see equation (68). 

BESIK 

21-U ,63-6 

Subroutine which computes modified Bessel 
functions with real argument x, I q (x), 
I-Jx) , K q (x) , ( x ) 

BESIO 

21-U 

A value of I (x), a modified Bessel 
0 

function of order 0 

BESI1 

21-U 

A value of I^(x), a modified Bessel 
function of order 1 

BESJLA 

61-6 

Subroutine that computes J^fx), a Bessel 
function of the first kind and order v, 
where x >> v 

BESJLAM 

11-1* 

A variable which contains J q (LAMDA) - 
i J 1 (LAMDA) 

BESKO 

21-1* 

A value of K q (x), a modified Bessel 
function of order 0 

BESK1 

21-U 

A value of K^(x), a modified Bessel 
function of order 1 

BESNX 

18- 1*, 62-6 

Subroutine which computes the Bessel 

function of the first kind J (x) with no 

n 

restrictions on the magnitude of the 
integer order n and the real argument x 
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FORTRAN 

name 


LOC-FNC 

code 


Description 


BETAMN 


bfUf 


BJHI 


BJHR 


BJLAMI 


BJLAMR 


BJ1 


l-**,9-4, B , defined in equation (l) 

12-4,17-1* 


4-4,5-4,11-4, Standard LRC library subroutine which 

15-^,18-4,55-6 calculates the Bessel function of the 

second kind, or Neumann function, Y 


10-4 


10-4 


11-4 


11-4 


15-4,18-4 


Array of dimension 250 containing the 
imaginary parts of the Bessel function 
of the first kind with complex arguments, 

*V l W p ^» < "^1^^K2^ P ^* ••• 

Array of dimension 250 containing the 
real parts of the Bessel function of 
the first kind with complex arguments, 

^0^^K2^ p ^ ^ * *** 

Array of dimension 250 containing the 
imaginary parts of the Bessel function 
of the first kind with complex arguments, 
J Q (LAMDA), J^LAMDA) 

Array of dimension 250 containing real 
parts of the Bessel function of the first 
kind with complex arguments, J q (LAMDA), 
J^LAMDA) 

J Q (x), a value of the Bessel function of 
the first kind, with order zero and real 
argument x 
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FORTRAN 

name 


BJ1LAM 


bjirnu 


BJ2 


BJ2LAM 


BJ2RNU 


BSSLS 


BTAU 


BTJ 


LOC-FNC 

code 

11-4 


11-4 


15-4,18-4 


11-4 


11-4 


Description 

J q (LAMDA), a value of the Bessel function 
of the first kind, with order zero and 
complex argument LAMDA 

Jq(RNU), a value of the Bessel function of 
the first kind, with order zero and real 
argument RNU 

J^(x), a value of the Bessel function of 
the first kind, with order one and real 
argument x 

J^(LAMDA), a value of the Bessel function 
of the first kind, with order one and 
complex argument LAMDA 

J X (RNU), a value of the Bessel function of 
the first kind, with order one and real 
argument RNU 


4-4,5-4,11-4, Subroutine which calculates the Bessel 

15-4,18-4,54-6 function of the first kind, J. This 

subroutine is a modification of the 
standard LRC library subroutine of the 
same name. The order used by BSSLS is 
less than or equal to 100; see MBES. 

19-4 Variable containing B*t; see equation 

(6l). 

19-4 Array of dimension 2 which contains 

B*T for j = 1,2; see equation (6l). 

J 
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FORTRAN 

name 

BYLAMI 


BYLAMR 


BY1 


BY1RNU 


BY2 


BY2RNU 


Bl, B2, 


CAPA 


LOC-FNC 

code 


11 - 1 + 


11 - 1 + 


15-l+,l8-l+ 


11 - 1 + 


15- i +,l8-l4 


11 - 1 + 


Description 


Array of dimension 50 which is required 
in calling subroutine ROCABES 

Array of dimension 50 which is required 
in calling subroutine ROCABES 

Y^Cx), a value of the Bessel function 
of the second kind, with order zero and 
argument x 

Y^CRNU), a value of the Bessel function 
of the second kind, with order zero and 
real argument RNU 

Y 1 (x), a value of the Bessel function of 
the second kind, with order one and 
argument x 

Y^(RNU), a value of the Bessel function 
of the second kind, with order one and 
real argument RNU 


B3 1-1+ ,12-1+ ,15-1 , 
18-1,19-1+ 


Coefficients vised with subroutines LIFTFN3 
and NONCPT; see equations (21) and (22) 


10-1+ Array of dimension 15 which contains 

average Glauert coefficients for com- 
ponent K2 


11+-5.16-5 


Contains A used in the cone model of 
distortion*, see equation (33) 


CAP ADIS 



FORTRAN 

name 

LOC-FNC 

code 

Description 

CAPF1 

19-4 

Variable containing F^(p); see equations 
(64) and (65) 

CAPF2 

19-1+ 

Variable containing F^p); see equations 
(66) and (67) 

CAPHRHO 

10-4 

A variable which contains see 

equation (4l) 

CAPKL 

11-4 

A variable containing (v, X); see 

equation (24) where v > 0 

CAPKMN 

1-5, 7-5 ,9-5, 

10-5,12-5,14-5, 

16-5,17-5,19-5 

K , variable defined in equation (2) 
mn 

CAPKRHO 

10-4 

A variable containing K (p) 

1C jiv_L 

CAPLT 

1-4,12-4, 

15-3,18-3 

Contains a value of the combined lift 
response function. 

If ARMISC(38) = 0, CAPLT = L(v); 
see equation (21). 

If ARMISC(38) j 0, CAPLT = L'(v); 
see equation (22). 

CAPNMN 

1-5 ,7-5, 9-5, 

10-5,12-5,14-5, 

16-5,17-5,19-5 

The normalization factor for the duct 
radial eigenfunction, N , which is 
defined by equation (j) 

CAP RET A 

6-4 

R (y n), value of unnormalized eigen- 
m mn 

functions with argument the product of 
an eigenvalue times the hub-to-tip ratio 



FORTRAN 

name 

LOC-FNC 

code 

Description 

CAPRONE 

6-U 

R (w ), value of unnormalized eigen- 
m mn 

functions with argument an eigenvalue; 
see equation (6). 

If IS0R0S = 1, CAPRONE contains 
average inlet stator vane drag 
coefficient. 

If IS0R0S = 2, CAPRONE contains 
average rotor blade drag coefficient. 

CD 


CD is made equivalent to AV(k). 

CDISINT 

lfc-5,16-5 

Common block containing CAPADIS and 
RHOINC 

CEQUAT 

3-5.U-5 

Common block containing CETA, the hub-to- 
tip ratio, and M, the spinning mode index 

CETA 

3-5 

Hub-to-tip ratio, n 

CFACT 

1-5, 12-5, 1^-5, 
7-5,16-5,17-5, 
19-5 

Common block containing CAPNMN, ETA, L, 
M, N, RMUMN, SIGN, CAPKMN 

CFACTIR 

1-5, 7-5 

Common block containing NSBIR, SIGOL, 
PHISBIR 

CFACT2 

9-5,10-5 

Common block containing B, CAPKMN, CAPNMN 
C3, C6, C7, C8, C9, Cll, C12, C13, ClU, 
Kl, K2, L, M, N, NK2, RMUMN, SIGOL 

CFUNINU 

19-5,20-5 

Common block containing CTJ and TAU 
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FORTRAN 

name 


LOC-FNC 

code 


Description 


CHORD 

10-1+,19-U 

Array of dimension 3 which contains values 
of nondimensional chords for the three 
components 

Cl 

21-U 

Value of the cosine integral Cl(x), where 
x > 0 

CLIFT U 

19-1+ 

Variable containing T*(x,y), the complex 
conjugate of a value of the Fi lotas lift 
response function (LIFTFTJ1+) 

CMACH 

1-1+,9-U, 
12-4 ,17-1+ 

1. - (AXIALM) 2 

COEFAl 

11+-1+ 

Contains a^ used in the power model of 
distortion; see equation (1+9) 

CONLIFT 

10-l+,ll-3 

If v > 0, CONLIFT =1^ (v, X). 

If v < 0, CONLIFT = [1^ (-v, -X*)]*. 
See equation (28). 

COSPSI 

1-U ,7-1+ 

Cosine of the angle the relative exit 

flow angle of the blade row upstream of 
the sound-producing blade row; see fig- 
ure 1+ 

COSTHS 

1-1+ ,10-1+, 12-1+ , 
17-1+ , 18-1, 19-1+ 

Cosine of mean flow angle y; see equation 
(11) 

COTBETA 

1-1+,12-L 

Cotangent of S, the relative stagger angle 


see figure 3 
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FORTRAN LOC-FNC 

name code 

COTTHS 19-1* 


CTEMP1 

10-1*, 15-1* 


18-1*, 19-I* 

CTEMP2 

7-1*, 10-1*, 


19-1*, 21-1* 

CTEMP3 

21-U 

CTJ 

19-5,20-5 


Cl 1-U 


C2 1-1* ,12-U, 

17-1* ,18-1 


C3,C6,C7,C8, 9-5,10-5 

C9,C11,C12, 

C13,Cl4 


Description 

Cotangent of the mean flow angle; see 
equation (ll) 


Variables used for temporary storage of 
complex numbers 


Variable containing a value of T ; see 
equation (60) 

If IS0R0S = 1, Cl contains average inlet 
stator vane chord. 

If IS0R0S = 2, Cl contains average rotor 
blade chord. 

Cl is made equivalent to AV(2). 

Contains the average blade chord of the 
sound-generating blade row. C2 is made 
equivalent to AV(3). 

Variables in common block CFACT2 which 
are defined by the table on the following 
page. 
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SIGOL < 

-1 


SIGOL 

> 1 


ISOROS 

1 

2 

2 

1 

1 

2 

2 

1 

IAERO 

1 

1 

-1 

-1 

1 

1 

-1 

-1 

C3 

-1 

1 

1 

-1 

1 

-1 

-1 

1 

C 6 

-1 

1 

-1 

1 

-1 

1 

-1 

1 

C7 

-1 

-1 

-1 

-1 

1 

1 

1 

1 

C8 

1 

-1 

-1 

1 

-1 

1 

1 

-1 

C9 

1 

-1 

-1 

1 

1 

-1 

-1 

1 

Cll 

1 

1 

-1 

-1 

-1 

-1 

1 

1 

C12 

-1 

-1 

-1 

-1 

1 

1 

1 

1 

C13 

-1 

-1 

-1 

-1 

1 

1 

1 

1 

ClU 

1 

-1 

-1 

1 

1 

-1 

-1 

1 


FORTRAN 

LOC-FNC 


name 

code 

Description 

DCL 

1-1*, 12-1*, 
17-** 

Average derivative of the steady-state 
lift coefficient with respect to the 
incident angle for the noise-generating 
blade row. DCL is made equivalent to 
A V(6). 

DCSBL 

10-U 

An array of dimension 3 which contains 
slopes of the steady-state lift coefficients 
for each of the three components 

DELK 

19-1* 

Variable containing A = a ,/R; see equation 
(70) 

DELTALO 

ll*-l* 

Contains „ where 6, , is the Kronecker 

L,0 J,k 

delta 

DELTAL1 

ik-k 

Contains (5. . + 6. .. ) where 6 . is the 

ijy J. J fK 

Kronecker delta 



FORTRAN 

name 

DISINT 


DRHO 


DSPAC 


DVALUE 


D1 


D2 


LOC-FNC 

code 

lU-lt,i6-7 


10-U 


1-U.7-U 


Ik-U 


k-k 


1 +- 1 + 


Description 

The complex function subprogram which 
evaluates the integrand used 

in the- cone model of distortion; see 
equation (1+8) 

A variable which contains d (p); see 

k ,K1 

equation (1+2) 

If ISOROS = 1, DSPAC is the average 
nondimensional distance between the 
midchord planes of the inlet stator and 
the rotor, d ISR . 

If ISOROS = 2, DSPAC is the average 
nondimensional distance between the 
midchord planes of the rotor and the 
outlet stator, d^g. 

Contains the quantity- 



used in the cone model of distortion; see 
equation (1+8) 

J„ ,(x), a value of the Bessel function 
M+l 

of the first kind, with order M+l and the 
real argument x 

J^ + s(x;) , a value' bf^tWe Bes^bl '-ftsiction 
of the first kind, with order M+2 and the 
real argument x 
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FORTRAN 

LOC-FNC 


name 

code 

Description 

D3 

1+-1+ 

■^M+l ( x ) ’ a va ^ ue the Bessel function 

of the second kind, with order M+l and 
the real argument x 

Dll 

k-k 

Y w^( x ) > a value of the Bessel function 
Mrc 

of the second kind, with order M+2 and 
the real argument x 

EGNBND 

1-U,9-U,12-U, 

13-1,17-1* 

The upper bound on eigenvalues, 
EGNBND = RK/(l - AXIALM) 2 . 
EGNBND = Eg of equation (3). 

EGNBNDO 

12-1+,17-U 

Previous value (of last call to primary- 
subroutine) of EGNBND. Initially set 
to -1. 

■EGNNORM 

1_U,9-1i,12-U, 

17-11,6-7 

Function subprogram which calculates 

normalization factor N for unnormalized 

mn 

duct radial eigenfunction; see equation (' 

EGNVAL2 

1_1*,9_1*,12-U, 

13-6,17-1+ 

Subroutine which computes the matrix of 
eigenvalues 

EJ 

19-!+ 

Array of dimension 2 containing E^ and E^ 
of equation (6l) 

EPS 

21-1+ 

A numerical tolerance, EPS = 10 In 

LIFTFN4, it is used in three different 
ways; see methods description of that 
subroutine . 

EP1 

3-1+ 

Contains the value 0; used in subroutine 
JARRATT 
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FORTRAN 

name 

LOC-FNC 

code 

Description 

EP2 

3-4 

Contains the value 10 ^ ; used in 
subroutine JARRATT 

EQATION 

3-U ,U-T 

The function subprogram used to evaluate 
the left side of equation (5) 

ETA 

1-5, 3-1, 4-5, 5-1, 
6-1, 7-5, 9-4, 12-5, 
13-1,14-5,16-5, 
17-5,19-5 

Hub-to-tip ratio, n 

ETAO 

1-4, 9-4, 
12-4,17-4 

Previous value (of last call to primary 
subroutine) of ETA. It is initially set 
to -1 . 

EXPDRHO 

10-4 

" id K Kl (p) 

A variable which contains e ’ ; 

see equation (42) 

EXP FACT 

7-4 

Exponential factor in the oscillating 
factor of the integrand in primary 
subroutine AAAAA; see equation (36) 

FACTAV 

* 

1-4,12-4,17-4 

The factor in the integrand of equation 
(9) which varies slowest in the radial 
direction. It is averaged in each sub- 
interval of the integration and is defined 
by equations (34), (35), (46), (54), (55), 
and (58) for the different primary 
subroutines . 

\ FACTCOU 

F 

j 

1-4, 9-4, 
12-4,17-4 

Constant factor in the integrand of 
equation (9). It is defined by equations 
(33), (45), (53), and (57). 
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FORTRAN 

name 


FACTINT 


FACT IN 2 


FACTIN 3 


FACTINU 


FALPHNU 


FFNU 


FJFP 


LOC-FNC 

code 


1-14,7-7 


9-14,10-7 


12-4,14-7 


17-4,19-7 


15-14 


15-U 


4-4 


Description 

Complex function subprogram which evaluates 
the oscillatory factor in the integrand of 
equation (9) for the primary subroutine 
AAAAA; see equation (36) 

Complex function subprogram which computes 
the oscillatory factor in the integrand of 
equation (9) for the primary subroutine 
AABAA; see equation (47) 

Complex function subprogram which computes 
the oscillatory factor in the integrand of 
equation ( 9 ) for the primary subroutine 
BCDAA; see equation ( 56 ) 

Complex function subprogram which computes 
the oscillatory factor in. the integrand of 
equation (9) for the primary subroutine 
BBCAA; see equations (62), and ( 69 ) 

Contains the quantity F q (v), where the 
function F^ is defined by equation (l6) 
and v is the reduced frequency 

Contains the quantity F^(v), where the 
function F^ is defined by equation (20) 
and v is the reduced frequency 

A value of J'(n*x), the derivative of the 
m 

Bessel function of the first kind of order 
m and argument n*x, where n is the hub-to- 
tip ratio and x is the dummy argument of 
EQATION 
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FORTRAN 

name 

FJP 


FKMAX 


FME 


FMI 


FMM 


FMZ 


FMIE 


FHFP 


LOC-FNC 

code 

4-4 


19-4 


Description 

A value of J'(x), the derivative of the 
m 

Bessel function of the first kind of order 
m and argument x, where x is the dummy 
argument of EQATION 

Upper limit used in the truncated integral 
of equation (70). It is set equal to 20. 


1-4, 12-4, 
17-4 


Relative exit flow Mach number of the 
sound-generating blade row, M E (p). It is 
made equivalent to AV(8). 


1-4,12-4, Relative inlet flow Mach number of the 

17-4 sound-generating blade row, M^Cp). It is 

made equivalent to AV(7). 


1-4,12-4 


Mean flow Mach number at a radial position 
of a blade row, M^(p); see equation (10) 


1-4,12-4, 

17-4,7-4 


Average axial flow Mach number at the loca- 
tion of the sound-generating blade row, 
M z (p) 


1-4, 7-4 


4-4 


Relative exit flow Mach number of the next 
blade row upstream of the sound-generating 
blade row, M^Cp) 


A value of Y’(n*x), the derivative of the 
m 

Bessel function of the second kind of order 
m and argument rpx, where n is the hub-to- 
tip ratio and x is the dummy argument of 
EQATION 
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FORTRAN 

name 

FNP 


FNU 


FRHO 


FRTH 


FT 


funin4 


fuiiphi 


GAMMA 


GAUSS 


LOC-FNC 

code 

4-4 


18-1* 


19-4 


21-4 


Description 

A value of Y’(x), the derivative of the 
m 

Bessel function of the second kind of 
order m and argument x, where x is the 
dummy argument of EQATION 

F(v), a term in the equation for the 
noncompact acoustic response function; 
see equation (19) 

Ratio of maximum blade camber to the 
half-chord, f(p). It is input in 
AR(I,10,K). 

Variable defined by equation (A9) in 
reference 36 


3-4 


19-U,20-T 


16-4 


10*4 


17-4,19-4, 

21-4,53-6 


The actual value of the left side of 
equation (5) which corresponds to a zero 
that was calculated by JARRATT 

Complex function subprogram which 
evaluates a function used in FACTIN4 


Contains W(p, <j>), the distortion function 
for the cone model; see equation (48) 


Variable which contains 
equation ( 37 ) 



see 


Subroutine which performs 4-, 8-, or 
12-point Gaussian integration 
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FORTRAN 

name 


LOC-FNC 

code 


Description 


GAUSS2 


GJ 


GNRHO 


GRTHFCN 


GUESS 


HALFPI 


1-4,9-4,12-4 , Modified version of subroutine GAUSS in 

17-4,57-6 which the input arrays of the primary 

subroutine are passed to the complex 
function subprogram which evaluates the 
oscillating factor 


19-4 


10-4 


21-4,65-7 


Array of dimension 2 containing, g-^(p) 
and g 2£ (p) of equation ( 62 ) 

Array of dimension 15 which contains 
S 1 K2^’ g 2 K2^’ see equation (39) 

Complex function subprogram, where: 


GRTHFCN = e“ laZ K (Z) 
o 

with K q a modified Bessel function, argument 
Z > 0, and a passed through common block 
ALPHA 


3-4 Array of dimension 3 which contains three 

starting values for zeros of equation (5) 
to be used by the iteration procedure in 
JARRATT 


21-4 


fl /2 
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FORTRAN 

name 

LOC-FNC 

code 

Description 

HANKEL 

11-4 

Variable which contains the ratio 



IL^ 2 ^ (RNU) 

(RNU) + i H ^ (RNU) 



where H ^ (z) =J (z) -i Y (z) is a 
n n n 

Hankel function of the second kind and 
order n 

HRHO 

10-4 

Variable containing h_. 0 (p); see equation 

(4o) 

HRHOI 

10-4 

Variable containing the imaginary part 
of HRHO 

IIRHOK 

19-4 

Variable containing h(p,k); see equation 
(71) 

HRHOR 

10-4 

Variable containing the real part of 
HRHO 

H1RNU 

11-4,15-4, 

18-4 

(?) 

Variable containing H^ (RNU) = J Q (RNU) 

- i Yq (RNU), a Hankel function of the 
second kind and order zero 

H2RNU 

11-4,15-4, 

18-4 

(?) 

Variable containing (RNU) = (RNU) 

- i Y^ (RNU), a Hankel function of the 
second kind and order one 

IABSL 

14-4 

Absolute value of L, the incidence velocity 
Fourier series index 
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FORTRAN 

name 


LOC-FNC 

code 


Description 

IABSM 5-4,13-4 The absolute value of a spinning node 

index, f M f 

I AERO 9-4 Option IAERO = ARMISC(l8) 

-1 indicates the upstream component is 
sound generator 

1 indicates the downstream component 
is sound generator 

IER3ES 21-4 Error return from BESIK, where: 

0 indicates no error 

1 indicates input argument is nonpositive; 

no calculation is possible 

Error return from EGNVAL2 , where : 

0 indicates successful execution 

2 indicates that there are more 

eigenvalues required than there is 
space for (i.e., NDIM and/or MDIM 
are not large enough); as many as 
possible are returned 

4 indicates that there are no eigenvalues 
IEPJSGNV is equivalent to IERROR. 


IERJAR 

3-4 

Error return from JARRATT 

IERLFT4 

19-4,21-3 

Error return from LIFTFR4 , where: 



0 

indicates no error 



1 

indicates integral in FRTH did not 
converge according to EPS on the 
interval fx, 1000] 


IEREGNV 1-4 ,9-4 ,12-4 , 

13-3,17-4 
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FORTRAN 

name 


LOC-FNC 

code 


Description 


IERR 


IERROR 


I FLOW 


I FORM 


IGO 


ILOGIC 
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4-4,11-4,5-4, Error return from BSSLS and BF4F. It is 

15-4,18-4 not used. 

Error return from primary subroutines, 
where : 

0 indicates successful execution 

2 indicates that there are more eigen- 

values required than there is space 
for (i.e., iJDIM and/or MDIM are too 
small); as many eigenvalues as possible 
are returned 

4 indicates that there are no eigenvalues 
IERROR is equivalent to IEREGNV. 

Option I FLOW = ARMISC(4) 

-1 indicates upstream propagation 
1 indicates downstream propagation 

19-4,21-1 Option IFORM, where: 

1 indicates that the exact form of the 
Filotas lift response function is used 

2 indicates that the approximate form of 
the Filotas lift response function is 
used 

At the present, IFORM is set equal to 2. 


11-4 If RNU > 0, IGO = 1. 

If RNU < 0, IGO = 2. 


9-4 

Internal 

switch 

which 

is 

defined by 



IS0R0S 


1 

2 

2 

1 



IAER0 


1 

1 

-1 

-1 



ILOGIC 

1 

2 

1 

2 


1-3, 9-3, 
12-3,17-3 


1-4, 9-4, 
12-4,17-4 




FORTRAN 

name 

LOC-FNC 

code 

Description 

ILOGICO 

9-4 

Previous value (of last call to primary- 
subroutine) of ILOGIC. It is initially 
set to 0. 

INDX 

9-4 

Variable containing the sum of ILOGIC 
and I AERO 

INDX2 

10-4 

Variable containing the sum of IS0R0S 
and I AERO 

INTEGJ 

19-!+ 

Array of dimension 2 containing the 
integrals 1^ and I^; see equation (70) 

INTEGRL 

1-4, 9-4, 
12-4,17-4 

The value of the constant factor times 
the integral over the interval (n,l). It 
is equal to a mode amplitude, a ; see 
equation (9)- 

IORDGS 

1-4,9-4,12-4, 
14-4,17-4, 19-4 

Option for GAUSS and GAUSS2 which, at 
present, is set equal to 2, where: 

1 indicates 4-point Gaussian integration 

2 indicates 8-point Gaussian integration 

3 indicates 12-point Gaussian integration 

IP 

10-4,19-4 

Variable set equal to -1 which is used in 
MTLUP 

IPA 

1-4,7-4,12-4, 

14-4,17-4 

Variable set equal to -1 which is vised in 
MTLUP 

ISIGN 

4-4,11-4,5-4, 

15-4,18-4 

Variable set equal to -1 which is used in 

bf4f 
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FORTRAN 

LOC-FNC 


name 

code 

Description 

ISOROS 

l-fc.7-fc.9- 1 * 

Option ISOROS = ARMISC(5)» where: 

1 indicates inlet stator-rotor 
interaction 

2 indicates rotor-outlet stator 
interaction 

ISOROSO 

1-4 

Previous value (of last call to primary- 
subroutine ) of ISOROS. It is initially 
set equal to 0. 

ITLIM 

3-fc 

Variable set equal to 30 which is used 
in JARRATT 

ITRACE 

l-fc,3-l # 9-fc, 
12-1+ ,13-1,17-1+ 

Option ITRACE = ARMISC(6), where: 

0 indicates no printout 

1 indicates printout from primary 
subroutine 

2 indicates printout from primary 
subroutines and subroutine ZEROS 

JARRATT 

3-fc,52-6 

Subroutine which calculates the zeros 
of equation (5) 

JMAX 

18 - 1 + 

Upper limit of the summation in the 
equation for the noncompact acoustic 
response function; see equation (23). 
JMAX = MAX(RKAPA.RNU) + 1. 


JMAX1 

18 - 1 + 

JMAX + 1 

JMAX2 

18 - 1 + 

JMAX + 2 
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FORTRAN 

name 

KI 


KMAX 


Kl ,K2 


L 


LAMDA 


LAMDAI 


LAMDAR 


LIFT 


LIFTFN2 


LOC-FNC 

code Description 

10-1+ Variable used as temporary storage for 

Kl and K2 


19-1* 


Maximum value of K: KMAX = (FKMAX/DELK) + 1. 
See equation (70). 


9-5,10-5 Variables which are defined by: 


I SOROS 

12 2 1 

IAER0 

11-1-1 

Kl 

2 3 2 1 

K2 

12 3 2 


1-5, 7-5 ,9-5, Fourier series index of the incident 

10-5,12-5,13-1+, velocity, l 

lU- 5 ,16-5 , 

17-5,19-5 


10-1+.11-1 A variable which contains X ; see 

K jZVX 

equation (1+1+) 


11 - 1 + 


A variable containing the imaginary 
part of LAMDA 


11 - 1 + 


A variable containing the real part of 
LAMDA 


10-1+ ,11-3 . If v > 0, LIFT = [K^v.X)]* 

If v < 0, LIFT = K^ ( —v , -X*) 
See equation (2l+). 


10-l+,ll-6 The subroutine which computes the lift 

response function used with the primary 
subroutine AABAA; see reference 1+ 
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fortran 

name 

LIFTFN3 


LIFTFN4 


liftu 


LUSE 


LZERO 


MAXCOEF 


MAXDIM 


LOC-FNC 

code 

1-1*, 12-4, 
15-6, 19-*» 


19-4,21-6 


19-U, 21-3 


13 - 1 * 


13-1 


1-5, 3-5 >-5, 
5-1, 6-1, 7-5 , 
9-5,10-5,12-5, 

13- 5, 1^-5, 16-5, 
17-5,18-1,19-5, 
21-5 

14- 4 


1 - 1 , 9 - 1 , 12 - 1 , 

17-1 


Description 

The subroutine which computes the combined 
lift response function used with the pri- 
mary subroutines AAAAA, BCDAA, and BBCAA; 
see reference 35 

The subroutine which computes the Filotas 
lift response function; see reference 36 

Variable containing T(X,Y), a value of 
the Filotas lift response function 
LIFTFN4 

A variable which is used as a counter in 
computing NOFM 

An option where: 

0 indicates that L = 0 is acceptable 

1 indicates that L = 0 is not acceptable 

Spinning mode index m; see RM 


The number of indexes of the distortion 
coefficients; see MULTFCT also 

A variable dimension for array AR. It 
must be greater than or equal to the 
maximum number of radial input positions 
+ 2 for any input set. 
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FORTRAN 

name 

MA.XIND 


MAXJ 


MAXN 


MBES 


MBESSEGN 


MDIM 


MDIMO 


MEGN 


MMAX 


LOC-FNC 

code Description 

10-4 A variable which contains the number of 

Glauert coefficients for component K2 
that were input. This is equal to N+l 
of equations (39) and (4l). 

1-1, 9-1, A variable dimension of array AR 

12-1, 17-r 


1-2S.9-2S, 

12-2S,13-3, 

1T-2S 


An array of dimension MDIM which 
contains for each spinning mode index 
a maximum radial mode index 


13-4 


13 -^ 


Variable set equal to 100. It indicates 
the maximum order of the Bessel function 
which can be safely calculated by the 
subroutine BSSLS . 

Bound or magnitude of spinning mode index 
M due to MBES and EGNBND 


1-1,9-1,12-1, A variable column dimension of ALPHAMN 

13-1,17-1 and ARMUMN 


1-4, 9-4, Previous value (of last call to primary 

12-4,17-4 subroutine) of ETA. It is initially set 

to 0. 


13-4 


3-4 


Maximum spinning mode index due to the 
eigenvalue bound, EGNBND 

Contains the value max jjrainoj, jmaxD|| , 
where ft = set of spinning mode indexes 
contained in array MUSE 
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FORTRAN 

name 

LOC-FNC 

code 

Description 

MP1 

3-4, 4-4 
13-4,5-4 

Contains M + 1, where M is the spinning 
mode index 

Contains f M | + 1, where M is the spinning 
mode index 

MP1MAX 

3-4 

• 

Contains MMAX + 1 

MP2 

4-4, 5-4 

Contains MP1 + 1 

MSAVE 

3-4 

Contains |MUSE(l)|, the absolute value of 
the element of array MUSE 

MSBE 

10-4, 19-4 

An array of dimension 3 which contains 
relative exit flow Mach numbers for the 
three components 

MSB! 

10-4,19-4 

An array of dimension 3 which contains 
relative inlet flow Mach numbers for the 
three components 

MSBM 

10-4,19-4 

An array of dimension 3 which contains 
relative mean flow Mach numbers for the 
three components; see equation (10) 

MSBT 

1-4,9-4,12-4, 

17-4,19-4 

Rotor blade tip Mach number, M.^, - 
ARMISC( 7 ) 

MSBZ 

10-4,19-4 

An array of dimension 3 which contains 
axial Mach numbers for the three 
components 

MTLUP 

42 

1-4,7-4,56-6, 

10-4,12-4,14-4, 

17-4,19-4 

Standard LRC library subroutine which 
performs multiple table lookup; see 
reference 42 


FORTRAN 

name 

MULTFCT 


IvIUSE 


NB 

NBESEGN 


NDIM 

NDIMO 


LOC-FNC 

code Description 

ll+-4 The multiplicative factor in the indexes 

of distortion coefficients. That is, 
if r = MULTFCT, then the distortion 
coefficients are a r> b r , & 2 . r , b 2 . r » •••» 

a r*MAXCOEF, b r*MAXCOEF * 


1-2S,9-2S,12-2S, An array of dimension MMIM which contains 
13-3, 1T-2S, 3-1 the set of spinning mode indexes 


1-5, 7-5 ,9-5, N = n+1, where n is the radial mode 

10-5,12-5,13-1+, index 

1^-5,16-5,17-5, 

19-5 


11-U 


Variable set equal to 1. which is used in 
BSSLS , BFl+F, and ROCABES 


13-1+ Maximum radial mode index due to both the 

restriction on BSSLS (the order used in 
BSSLS restricted to be less than or equal 
to 101) and the eigenvalue bound, EGNBND 


1-1,13-1,3-1, 

9-1,12-1,17-1 


Variable row dimension of ALPHAMN and 
ARMUMN 


l-l+,9-l+, 

12-1+.17-1+ 


Previous value (of last call to primary 
subroutine) of NDIM. It is initially set 
to 0. 
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Description 

If KI = 1, NKI is the number of inlet 
stator vanes . 

If KI = 2, NKI is the number of rotor 
blades . 

If KI = 3, NKI is the number of outlet 
stator vanes. » 


NMAX 

3-1,13-1* 

Contains min jNBESEGN, NDIM-lj 


NM1 

13-1+ 

Contains N-l 


NOFM 

1-2S,9-2S,3-1, 
12-2S ,13-3 ,17-2S 

Number of spinning mode indexes 


NOFN 

1-1* ,9-1* ,12-1*, 
13-1*, 17-1* 

Contains the maximum radial mode 
corresponding to a spinning mode 

index 

index 


Subroutine which computes the noncompact 
acoustic response function for the 
noncompact source theory; see equation (22) 

NOSCE 1-1*, 9-1+ ,12-1* , Number of equal subintervals used in 

lU-U, 17-1*, 19-U evaluating an integral 

NPTS 10-U, 19-1* A variable containing the number of points 

in an array 

NSBIR 1-5, 7-5 If IS0R0S = 1, NSBIR contains the number of 

inlet stator vanes, Njgy 

If IS0R0S =2, NSBIR contains the number of 
rotor blades, N . 

nii 


NONCPT 1-1* ,12-U, 

18-6,19-1* 
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FORTRAN 

LOC-FNC 


name 

code 

Description 

NSBNKI 

9-4 

If ILOGIC = 1, NSBNKI is NK1. 
If ILOGIC = 2, NSBNKI is NK2. 

NSBRB 

1-4,12-U, 17-4 

Number of rotor blades , II ' 

nil 

NSPN 

1-4,7-4,12-4, ' 

Contains the value of AR(l,J,K), which is 


14-4,17-4 

The number of radial positions, where 
the parameters of the AR array are 
input 

or 

0 if only a value averaged in the 
radial direction is given for the 
(K,J) th parameter of the AR array 

NTHZERO 

3-4 

A variable that indicates to APR0X1 or 
APR0X2 which zero to approximate 

N1 

21-4 

Variable that is used to determine the 
first subinterval used in the integra- 
tion of equation (Al) in Reference 36. 
Either: 

N1*WIDTHI < x < ( N1+ 1 ) *WIDTHI 
(Nl-l)*WIDTHI < x < N1*WIDTHI 

PHISBIR 

1-5, 

If ISOROS = 1, PHISBIR contains the span- 


7-5 

dependent phase angle at the rotor, 0^. 


If ISOROS = 2, PHISBIR contains the span- 
dependent phase angle at the outlet 
stator, 0 Qg . 
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FORTRAN 

LOC-FNC 


name 

code 

Description 

PI 

1-4,9-4,12-4, 
14-4 , 15 - 11 , 17 - 1 *, 
18-4,19-4,21-4 

Contains the value u 

PJ 

19-4 

Array of dimension 2 which contains P , 

J 

j = 1,2; see equation (6l) 

PSI 

19-4 

Variable containing tji (p, k), the gust 
yaw angle used in Filotas lift response 
function; see equation (72) 

Q 

l4-4 

Contains the exponent q used in the 
power model of distortion; see equation 

(49). 

q = ARMISC(23) if ARMISC(22) = 2. 

RATIO 

6-4 

2 2 

Contains the ratio, m /y , of the 

mn 

square of a spinning mode m over the 
square of an eigenvalue p 

mn 

RHO 

7-1,10-1,14-1, 

18-1,19-1 

Nondimens ional duct radial coordinate, p 

RHOINC 

14-5,16-5 

Same as RHO 

RK 

1-4,9-4,12-4, 

17-4 

Nondimens ional frequency, u> 

RKAPA 

18-4 

± c f ± m "I 

k = — K e - - e 

mno 2 L mn <{> p zj 

RKSQD 

1-4,9-4,12-4, 

17-4 

2 

oj , the square of the nondimensional 
frequency 
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FORTRAN 

name 


LOC-FNC 

code 


Description 


Lover bound of a subinterval used in an 
integration 

RM 3-4 Spinning mode index in floating point; 

see M 

RMUMN 1-5 ,5-1, 6-1, 7-5, An eigenvalue, 

9-5,10-5,12-5, 

ll»-5 ,16-5 ,17-5, 

19-5 

RNOFSV 1-4,12-4, Number of stator vanes. It is used in 

13-1, 17-4 calling subroutine EGNVAL2 . 

With primary subroutine AAAAA : 

If IS0R0S = 1, RNOFSV = number of 
inlet stator vanes. 

If IS0R0S = 2, RNOFSV = number of 
outlet stator vanes. 

If primary subroutines BBCAA or BCDAA 
are used, RNOFSV = 1. 

Previous value (of last call to primary 
subroutine) of RNOFSV. It is initially 
set to 0. 


RNU 

1-4,11-1,12-4, 

Reduced frequency, v; see equation (32) 


15-1,18-1,21-1 


RNUKAPA 

10-4 

Reduced frequency, v „ (p); 

1C 



see equation (43) 


RN0FSV0 1-4,12-4, 

17-4 


RLOW 1-4,9-4,12-4, 

14-4,17-4,19-4, 

21-4 
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FORTRAN 

name 

ROCABES 

RSBNKI 

RSBNKIO 

RUP 

S 

SAVELAM 

SAVERNU 

SC 

SCRATCH 


LOC-FNC 

code Description 


10 -U. 11 -U. 21 -U, Subroutine which computes J (z) and 

n 

58-6 Y (z), the Bessel functions of the first 

n 

and the second kind for integer order n 
and complex argument z 


9-U 


If I LOGIC = 1, RSBNKI is NK2 . 
If ILOGIC = 2, RSBNKI is NK1 . 


9-U Previous value (of last call to primary- 

subroutine) of RSBNKI. It is initially- 
set equal to 0. 


1-U, 9 -U,12-U, 

1 U-U. 17 -U. 19 -U, 

21 -U 


Upper bound of a subinterval used in 
evaluating an integral 


5-1 


Dummy argument of UNEGNFN, where 0 < S. 

UNEGNFN calculates R (u *S), the 

m mn * 

unnormalized duct radial eignfunction 
with argument the product of an eigen- 
value times S. 


11 -U 

11 -U 

3-1,13-U 


A variable used to temporarily save LAMDA 

A variable vised to temporarily save RNU 

Array of dimension Uo that is used as a 
scratch array in ZEROS 


U-5, 5-5, 10-5, 

11-5,15-5,18-5, 

19-5,21-5 


Common block name which contains the 
array BES, an array of dimension 1000 
that is used as a scratch array in 
Bessel function subroutines 
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fortran 

LOC-FNC 


name 

code 

Description 

SCPTRMN 

7-1*, 10-4, lU-1*, 
19-4 

A value of the normalized duct radial 

eigenfunction, R (p p) 
m mn 

X 

Value of sine integral Si(x) sin ~* dx 

o X 

where x is real 

SI 

21-1* 

SICI 

21-4,64-6 

Subroutine which computes the sine and 
cosine integrals 

SIGMA 

1-1*, 9-1*. 12-1+ , 
17-1* 

Harmonic index, a 

SIGN 

1-5,7-5,12-5, 
ll*-5, 16-5, 19-5 

18 - 1 + 

If ISOROS = 1, SIGN contains -1. 
If ISOROS = 2, SIGN contains 1. 

(-1)^ of equation (23) 

SIGNKI 

9-4 

A variable which contains the product 
of SIGMA and NSBNKI 

SIGNKIO 

9-1* 

Previous value (of last call to primary- 
subroutine) of SIGNKI. It is initially 
set to 0. 

SIGNRB 

1-1* ,12-1+ , 
13-1,17-1* 

a * N , the product of the harmonic 

nij 

index times the number of rotor blades 

SIGNRBO 

1-1*, 12-1*, 
17-1* 

Previous value (of last call to primary- 
subroutine) of SIGNRB; initially set 
to 0. 
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FORTRAN LOC-FNC 

name code Description 


SIGOL 

1-5 ,7-5, 

With primary subroutine AAAAA: 


9-5,10-5 

If ISOROS = 1, SIGOL = L. 

If ISOROS = 2, SIGOL = SIGMA. 

With primary subroutine AABAA: 

If I LOGIC = 2, SIGOL = SIGMA. 
If ILOGIC ji 2, SIGOL = L. 

SINBETA 

1-1* ,12-U 

Sine of 8 , the relative stagger angle; 
see figure 3 

SINPSI 

7-b 

Sine of i J», the relative exit flow 
angle of the blade row upstream of the 
sound-generating blade row; see figure 1 

SINTHS 

1-U,10-U,12-U, 

Sine of the mean relative flow angle. 


17-^,l8-U,19-U 

y (p): see equation (ll) 

SNU 

15-U.18-U 

Contains the quantity S (v), where S is 
the Sears lift response function and v 
is the reduced frequency. See equation (15) 

SQRT2PI 

19- U 


SUM 

18 - 1 + 

The sum that appears in the equation for 
the noncompact acoustic response function: 
J 

max r 

Sum=|-£ (-l) J J (v )|J ( K ± ) 

v jTj J z L mno 

+ J. . (<* )1 
j-1 rano J 

See equation (23). 
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FORTRAN 

name 

LOC-FNC 

code 

Description 

TAU 

19-5,20-5 

Time delay resulting from the distance 
between the axial position of the eddy 
center at the temporal origin and the 
rotor plane 

TEMPI 

1-4,7-4,10-4, 1 

12-4,15-4,17-4, 
18-4,19-4,20-4, 
21-4 


TEMP2 

1-4,10-4,12-4, 
17-4,18-4,19-4, 
20-4,21-4 / 

^ Variables which are used for temporary 

storage in calculations 

TEMP 3 

1-4,10-4,12-4, 1 
18-4,19-4,21-4 


TEMP It 

1-4,10-4,18-4, 
21-4 1 


TERM 

10-4 

Array of dimension 15 which contains the 



terms of a summation 

THETA 

10-4 

Array of dimension 3 which contains the 
stagger angles (or mean flow angles) in 
radians for each of the three blade 
rows; see equation (ll) 



or 


21-4 

Gust yaw angle, i </, used in the Filotas 
lift response function; see equation (72) 
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FORTRAN 

name 


LOC-FNC 

code 


Description 


TJ 


TWOPI 


T1 


T2 


T3 


Tk 


19- U 


17 - 4 , 19 - 1 + 


5-U 


5-U 


5-U 


5-h 


Array of dimension 2 which contains T , 

J 

j = 1,2, the temporal length of an eddy; 
see equation ( 60 ) 


2 ir 


Contains a value of Y' (u * n), the 

m mn 

derivative of the Bessel function of the 
second kind of order m and argument 
the product of an eigenvalue times the 
hub-to-tip ratio 

Contains a value of J (p * S), the 

m mn 

Bessel function of the first kind of 
order m and argument the product of 
an eigenvalue, p mn , times the dummy 
argument, S , of subroutine UNEGNFN 

Contains a value of J' (p * n), the 

m mn 

derivative of the Bessel function of 
the first kind of order m and argument 
the product of an eigenvalue times the 
hub-to-tip ratio 

Contains a value of Y (p * S), the 

m mn 

Bessel function of the second kind of 
order m and argument the product of 
an eigenvalue, p^ , times the dummy 
argument, S , of subroutine UNEGNFN 
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FORTRAN 

name 

LOC-FNC 

code 

Description 

UNEGNFN 

5-7, 6-4, 7-4, 
10-4, l4-4 
19-4 

Function subprogram which computes the 

unnormalized duct radial eigenfunction, 

R (p p) 
m mn 

VADBVI 

l4-4 

Contains V. /V, which is used in the 
A' 1 

cone model of the distortion; see 
equation (48) 

VALUINT 

1-4,9-4,12-4, 

17-4 

The value of the integral of the oscil- 
latory factor over a subinterval. It is 
calculated by subroutine GAUSS2. 


14-4,19-4 

The value of an integral in the oscilla- 
tory factor of BCDAA or BBCAA. It is 
calculated by subroutine GAUSS. See 
equation (48) for BCDAA and equation (6l) 
for BBCAA. 

WIDTHI 

1-4,9-4,12-4, 

14-4,17-4, 

19-4,21-4 

Width of a subinterval used in evaluating 
an integral. Every subinterval has the 
same width, WIDTHI. 

WSBLRHO 

14-4 

The L complex distortion coefficient 
at a duct radial coordinate. 



For the cone model, see equation (48). 
For the power model, see equation (49) 
For the case where the coefficients 
are input, see equation (50). 

X 

1-4 

4-1 

Distance along mean streamline traveled 
by wake 

or 

Dummy argument of function subprogram, 
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FORTRAN 

name 

Y 

YIM 

YRE 

ZERO 

ZEROS 

ZSBIR 


LOC-FNC 

code 

1 +- 1 + 


10 - 1 + 


10 - 1 + 


3-1+ 


3-6,13-1+ 


1-1+ , 9-1+ , 

12-U.17-1+ 


Description 

Contains x • n , the product of the 
dummy argument, x , of EQATION times 
the hub-to-tip ratio, n 

Array of dimension 20 which is required 
in calling subroutine ROCABES 

Array of dimension 20 which is required 
in calling subroutine ROCABES 

Contains a zero of equation (5) 

Subroutine which calculates zeros of 
equation (1+) 

In primary subroutine AAAAA: 

If IS0R0S = 1, ZSBIR = axial position 
of the rotor, ARMISC(l7). 

If IS0R0S =2, ZSBIR = axial position 
of the outlet stator, ARMISC(l6) 

In primary subroutine AABAA: 

If INDX = 1, ZSBIR = axial position 
of the inlet stator, ARMISC(l5). 
If INDX = 3, ZSBIR = axial position 
of the outlet stator, ARMISC(l6) 
Otherwise, ZSBIR = axial position 
of the rotor, ARMISC(l7). 

In primary subroutines BBCAA and BCDAA: 

ZSBIR = axial position of the rotor, 
ARMISC(17). 
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3.0 SUBPROGRAM DOCUMENTATION 


As previously discussed, each subroutine package consists of a primary 
subroutine and a set of secondary subprograms. Each primary subroutine computes 
mode amplitudes according to the expression: 


+ 



mna 


CONSTANT 

FACTOR 



AVERAGE OF j 
NON-OSCILLATORY) 
FACTOR 




/ (OSCILLATORY 
( FACTOR 




dp 


The logical flow of the primary subroutines is shown on the next page. 

The remainder of this section consists of descriptions of the primary 
subroutines , secondary special-purpose and secondary general-purpose sub- 
programs. Each subprogram is documented according to the format: a title and 
statement of purpose, a step-by-step statement of the algorithm, a flow chart, 
and a computer listing. 
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Return 














3.1 Primary Subroutine Descriptions 


3.1.1 Subroutine AAAAA 


Purpose: This subroutine computes the mode amplitudes for a given har- 

monic from two acoustic sources — rotor blades- cutting through 
viscous wakes from the inlet stator vanes* and the rotor blade 
viscous wakes washing over the outlet stator vanes. The compu- 
tation essentially consists of determining which modes con- 
tribute significantly to the sum, computing the required modal 
parameters, and evaluating a definite integral per mode. This 
integral is equation (9) from appendix I of volume I and is 
expressed as follows for numerical evaluation: 


+ 



mno 


CONSTANT 

FACTOR 



AVERAGE OF ) 

NON-OSCILLATORY) 
FACTOR Jj 


b i 



OSCILLATORY 

FACTOR 



a 3 


constant) 

FACTOR J 


-1 

^mno 


N 1 N 2 


_ iK mno Z 2 

e 


{ NON-OSCILLATORY 
FACTOR 




CAPLT 


* A 0 A 


♦ K* e } 
f p mno z | 


OSCILLATORY 

FACTOR 


iqN 1 e 2 


e 


<R 


m 



lq d SIN ^ 
p COS ij; 


See the FORTRAN dictionary (sec. 2.2) for CAPLT. 
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Method: 


The procedure is as follows: 


1) Set the phase angle, 0 T _, occurring in the oscillatory 

IK 

factor. 

2) Obtain the eigenvalue generation parameters (the input 
to EGNVAL2). 

3) Compare these parameters to stored values to determine 
if the required eigenvalues are already available. If 
values are equal, proceed to step 6. 

U) Compute the mode indexes and the corresponding eigenvalues. 

5) Error return if correct eigenvalues have not been 
computed. 

6) Loop on the spinning mode index. 

T ) Set values of required integers . 

8) Loop on the radial mode index. 

9) Compute the propagation constants and the normalization 
of the duct radial eigenfunction. 

10) Compute the constant factor in the mode amplitude 
expression. 

11) Initialize the value of the integral to zero. 

12) Compute the number of equal, subintervals required, which 
is determined by the total number of zeros of the 
oscillatory factor on the full integration interval. 
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13) Loop on subintervals . 

lL) Compute the lower and upper bound and the midpoint of 
the subinterval. 

15) Set up for accessing the input geometric and aero- 
dynamic data. 

16) If the average value over the full interval of a geo- 
metric or aerodynamic variable is input , use it and 
proceed to step 18. 

17 ) Compute an average value on the subinterval for the 
geometric or aerodynamic variable. 

18) Initialize the nonoscillatory factor to the product of 
the average value of the first three variables 
appearing in that factor. 

19) Compute flow angles and multiply the average value of 
the next three variables in the nonoscillatory factor 
into that factor . 

20) Compute the reduced frequency and the lift function 
coefficients (used for noncompact factor also). 

21) When the compact option is specified, compute the value 
for the frequency response function of the lift and 
multiply this into the nonoscillatory factor. 

22) When the noncompact option is specified, compute the 
noncompact factor and multiply this into the non- 
oscillatory factor. 
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23) Compute the inner product, or projection, factor and 
multiply into the nonoscillatory factor. 


Usage : 


Restrictions: 


24) Compute the relative streamwise distance traveled by 
the wake, which is used to compute a wake Fourier 
coefficient, and multiply this into the nonoscillatory 
factor . 

25) Integrate the oscillatory factor over the subinterval. 

26) Multiply the nonoscillatory and the integrated oscilla- 
tory factors together and accumulate in the integral 
value, completing the loop on the subintervals. 

27) Multiply the constant factor into the integral, value 
giving the mode amplitude for the current spinning mode 
index and radial mode index. 

28) Save the current eigenvalue generation parameters from 
step 2. The eigenvalues will not have to be recomputed 

in the next execution if these parameters remain unchanged. 

CALLING SEQUENCE 

DIMENSION MUSE(MDIM) ,MAXN(MDIM) , ARMUMN ( NDIM ,MDIM ) , 

* ARMISC(40) ,AR(MAXDIM,MAXJ,3) 

COMPLEX ALPHAMN ( NDIM ,MD IM ) 

CALL* AAAAA (ARMISC ,MAXDIM ,MAXJ , AR ,MDIM ,NDIM , ARMUMN , 

* NOFM , MUSE ,MAXN, ALPHAMN, TERROR) 
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The use and restrictions on the input arrays ARMISC and AR 
and the input /output NOFM, MUSE ,MAXN, ARMUMN are given in 
section 2.2. 



Error Return: 

Printout and. 
Diagnostics: 

Timing: 


The maximum spinning mode is limited (see subroutine EGNVAL2) 
in absolute value to 100, and the maximum radial mode index 
as a result is at most U0. 

I ERROR (see the FORTRAN dictionary, sec. 2.2) 

See the definition of ARMISC(6) ,ITRACE, in the dictionary. 


Of the cases run, the average time was 57 seconds per case. 
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«»f»n on 


SU8R QUTI NE A AA A A( ARM I SC * H4X0I M» M4XJ » AR. HO I M# NO I 1 . A* MUHN* 
INQFM» HUS E * MA XN» ALPHAS N» IERROR ) 

C 

REAL HS3T 

COMPLEX ALPHAMN (NDIM, HOI M) 

COMPLEX FACTAV»FACTCON»FACTINT#INTEGRL*CAPLT .VALUINT 

W 

DIMENSION ARMI SCI 1 ) » A R( M AXD IN. MAX J , 3 I » AR MUMN( NO I M, MO 1 M ) . 
1HUSE (MDIM).MAXN(MOIM) 

DIMENSION A V ( X 1 I 

DATA ISORQSQ.EGNBNQO. ETAQ.MDI HQ, NO I HQ. RNQF SVO# S l GNR 90/ 

1 0 •# — 1 • » — 1 • » 0 . 0 . 0 •» 0 • / 

DATA PI. TWOP I /3.1 4 15 92 053 5S979. 6 . 2 8 3 1 3 530 7 1 7 ?59/ 

C 

COMM ON/C FACT/ M .N.R MUMS » CA PNMN. E T A. S I GN. L.C APK M N 
COMM ON/CF ACT IR/NSBIR, SI GOL» PH I S B I R 
C 

EQUIVALENCE (AVIll.AVSPAN). (AV(2).C1).(AV(3)«C2) .(AV(AI.CD). 
l< AVI 6J.0CL )» < AV (7) »FMl) , ( AV ( 3 I * FME » « ( AV ( 9 I »FMZ ) , (AV(5)»FM1E) 
C 

EXTERNAL FACTINT 


I S OR OS » ARM ISC I 5 I 
I TRACE * ARM ISC (61 
I F 1 1 TRAC E .GE. 1 ) WR ITE ( 6 # 10 10 ) 
I F ( I SOROS- 1 ) 13 . 10.20 
13 PHIS B IR - ARMI SC ( 13 ) 

SIGM * - 1 . 

GO TO 30 

20 PHIS B IR « ARMI SC ( 12 ) 

SIGM - 1. 

30 CONTINUE 


GENERATE THE EIGENVALUES 

NSBRB - ARM I S C ( 10 ) 

SIGMA » ARM ISC (14) 

SIGMRB » SIGMA*NSBR3 
MS8T • A RM I SC ( 7 ) 

RK » S IGNRB*MS8T 
RKSOO* R K * *2 

I F ( ISQROS.EQ.l) AXIALM «AR(2,9#2) 

I F ( ISORaS.EO.2) AXIALM -AR(2.9#3) 

C MAC H « l.-AXI A LM**2 
EGN3ND « RK/ SORT(CMACH) 

I F ( I SGROS.EQ. 1 ) RNOFSV * ARMISC(8> 
t F C I SOROS. EO. 2) RNOFSV « ARMI SC l 9 I 
ETA • ARMISCI3) 

IFdTRACE .GE. 1) WR ITE ( 6. 1020) NSBRB»SIGM4»S13NRJ#M$8T»RK»RKSQD» 
l AXIALH.CMACH.EGNB'MO.RNJFSV. ETA 
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IM 

1 SOROS ,NE. ISOROSQ 

I 

GO 

TO 

no 

IFI 

EGN3N0 ,N£. EGN8N00 

I 

GO 

TO 

no 

l F < 

ETA .NE. ETAO 

I 

GO 

TO 

no 

IFI 

MOM .NE. MDIMO 

I 

GO 

TO 

no 

iri 

NOM .NE. NO I MO 

I 

GO 

TO 

no 

IFI 

RNOFSV .NE. RNOFSVO 

) 

GO 

TO 

no 

IFI 

SIGNR3 .NE. SIGNR80 

I 

GO 

TO 

no 


I F ( I T SAC E .GE. li WR ITE l 6 . 10 30 1 

co ro 120 

' i.Kl EGS V AL 2 I I 5 OROS. EGN8ND.ET A.MDIM.NDI M» RNOFS V* S 1 G NRB » I TR AC E» 
NO FM» MUS £. MAXN.ARMUMN. I EREGNV ) 

I ERR OF * IEREGNV 
CONTINUE 


ERROR RETURN 

I F(I EREGNV. EQ.0 I GO TO 200 
IFUEFEGNV-2) 150.130.150 

:f(I!u:e.ne.o) write is.iaoi 

r0RMAT(//lH0,73tlH*)//lH0.*A REDUCED SET CF EIGENVALUES IS AVAILAB 
i.M7 ihO. ♦COMPUTATIONS WILL PRCCEDE*/ 1H0. 70( IHM ) 

Til 230 

(IEREGNV-*) 200.160.200 
. (i TRACE. NE.O) WRITE <o, 160) 

. t"MATI//lHO.?C(lH*)S/HC. ♦THERE ARE NO PROPAGATING RADI AL MCDESa/ 
iHG. *N3 COMPUTATIONS CAN 8E NADE^/lHO.tlH*) > 

'OTG 1000 
’NT l SUE 


f( ISOROS.EO.il ZS6IR * ARMI SC ( 17 1 
» F C i SOROS . E 0. 2 I 2SBIR * ARMISCI16) 
IFLOW-ARHlSCtA) 

OS* AC -A RM I SC I I SOROS) 


LOOP ON M 

DO 6 OC I QFM* l» NOFM 

SET M.L. AND NOFN 

* MUSS < I OF M) 

L * I M-S I GNR3) /RNQFSV 
SIGOL * L 

I F II SCR 0 S.EQ. 2 I SIGOL -SIGMA 
N 7 3 ’ R * NS3R3 

i - : i S ~ ' . : i 4 . N S 3 l R * A A N I S C i a) 

Nt> * * MaxNIiUFM) 

in I TRACE .GE.l . AND .IOFN.GT. II WR I TE I 6 . 100 5 I 
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MW) 


I F ( I TRAC E . GE. 1) WRITE! 6* 10 AO I H»l#SIGOL»NSBlR,NQFN 


LOOP ON N 
00 700 N» 1, NOF N * 

CALCULATE PROPAGATION FACTORS 


RMUMN * ARMUMN ( N, IOFM ) 

BETAMN « SQRT<RK$00-CMA:h*RMUMN**2) 

C AP< MN » ( -RK* A X I ALM I F LO W* B E T A MN ) /C M A C H 

CAPNMN » EGNNORMIM, RMUMN# ET A) 

IFIITFACE .GE. 1) WR ITE { 6# 1050) N# R MUMN# B ET AMN# C AP < MN, C APNMN 


COMPUTE MOO A L AMPLITUDES 


CALCULATE CONSTANT FACTOR# FACTCON 
ARGEXP * -CAPKMN*ZSBIR 

FACTCON «- < . L25*NSBRB*RNOFSV /BETAMN)* 

1C MPL X ( COS(ARGEXP)# SIN(ARGEXP) ) 

SET THE NUMBER OF SU B- I NTE RV AL S FOR WHICH THE 
LAST TWO TERMS ARE EVALUATEO 

IOJOGS ■ 2 
INTEGRL » 10. #0.) 

SET NUMBER OSCILLATIONS 

NQSCE • AaS(SlG0L)*NS3IR*(PHlSSIR*0SPAC l/PI 
NOSCE - MAXO ( NQSC E»N ) 

NOSCE ■ 1.5 * NOSCE 
NGSCE « MAXO( N0SCE#2 ) 

WIDTHI » ( l.-ETAI/NOSCE 

I F ( I TRACE .GE. I) WR ITE < 6# lObO) FACTCON, NOSCE 

LOOP ON NUMBER OF SUBINTERVALS 

DC SOO l TRVL*l, NOSCE 
RLOW * ETA ♦ ( ITRVL-l )*WIOTHl 
RUP * RLOW ♦ WIOTHI 
270 CONTINUE 

EVALUATE TERM TO BE AVERAGED 
SET AVERAGE SPAN 
AVSPAN « I RLOW RUP I*. 5 
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o fi « . nnoo r> n n *■•>•. f ■ ^ , • r >< i o r> r> 


AVI 1 ) * AVSPAN 


SET X INOEX 

K « 3 

IFt ISOROS .E 0. 1 > <*2 

SET AVERAGE VALUES 
DO A OC IAV«2,11 

SET J INDEX 

J * IAV 

IFI1 AV.EO. 10) J-O+ARM ISC ( 18«K >♦! 

I F ( ( AV.EO. II ) J «9+ARN ISC ( 18 ♦< l+i 
I F ( IAV.E0.3 ) J*2 
I F ( I AV.EO. 5) J * 8 

SET K INDEX TO BE USEO 

KU * K 

I F < UV.EQ.2 ) KU«K-l 
I F ( IAV.EQ.A) KU*K-1 
IFIIAV.E0.5) KU-K-1 

SET SPAN WHEN J»l 

NSPM « Aft ( 1# J»KU) 

AVERAGE VALUE IS INPUT 

i*< NSPN ) A00» 330*3 AO 
320 AVI IAV) * AR I 2 » J, KU ) 

GO TO ADO 

INTERPOLATE FOR AVERAGE VALUE 

3A0 I P A* ~ 1 

CALL MTLUPI A VS PAN, AVI IAV ) ,1 #NSPN* NSPN, l# l PA, ARI3 » 1» KU)»AR I 3» J*KU ) ) 

AOG CONTINUE 

IFIITRACE .GE. 1) WR ITEI 6# 1070.) RL OW » RUP , A VSP AS , C 1 , C 2, C D » OC L, FM I , 
1 FME,FMZ,AVI IU), AVI 11),FM1E 

CALCULATE THE AVERAGE FACTOR, FACTAV 


FACTAV * C 1 *C2*DC L 

i F ! J T & A C i i ic> ii 4*i?E I .‘9,23 50) F A 0 T A / 

COMPUTE MACH NUMBER RELATED VARIABLES 
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TEMPI » SORT ( FMI**2 - FMZ**2 1 
TEMP2 - SORT ( F ME **2 - FMZ**2 J 
T EM? 3 * . 2 5* ( TEMPI ♦ TEMP2 ) **2 
T EM? * « SORT ( FM1E**2 - FMZ**2 ) 

F MM - SORT ( FM Z **2 * TEMP 3 ) 

COSTHS * FMZ/FMM 

SINTHS - SORT( l.-COSTHS**2 } 

COSTHS*-SIGN*COSTHS 

TEMP 1*S OR T ( FMM**2 - FM Z**2> 

SIN3ETA » FMZ+ ( TEMPI ♦ TEMP* )/C F MM*FM 1 E ) 

C OS? S I * FMZ/FM1E 

COT3ETA * CFMZ-TEMP1*TEMP*/FMZ»/C TEMPI ♦ TEMP* > 

UPOATE AVERAGE FACTOR 

TEM? 3 * SlNB£TA/CAVSPAN*COSPS I ) 

FACTAV * FACTAV+FMM +FN1EPTEMP3 

I F ( I TRACE .GE. 1 ) WR1 T EC 6» 10 85 ) TE MP l, TE MP 2* TEMP 3. F MM » COSTHS , 

l sinbeta,cospsi, factav 

COMPUTE THE REOUCEO FREQUENCY 
TEMP3-MSBT/FMM 

RNU « .5*SIG0L*NS81R*C2*TEMP3 
!F( IS0R0S.E0.2 ) RNU » -RNU 
81 « 1 . 

82 - -AVC11»*C0TBETA 
e3 * -AVC 10) ♦COTBETA 

COMPUTE COMPACT OPTION - NAUMANN-YEH 

I F ( ARMI SC ( 38) . NE.O. ) GO TO *10 
CAU LIFTFN3(RNU,B1#82»83»CAPLT) 

GO TO *20 

COMPUTE NON-COMPACT OPTION 

*10 CONTINUE 

CALL NONCPTC 81, B2#83»C2»C APKMN»C QSTHS» M# AVSPAN,RNU» S l NTH S » C A PI T ) 

UPOATE AVERAGE FACTOR 

*20 FACTAV * FACTAV+CAPLT 

1 F I ITRACE.GE.n WRl TEC 6» 1090 » CAPLT»FACTAV 

T EMP 2 « M*CQSTHS/AVS PAN ♦ C A PKMN *S I NTHS 

FACTAV * FAC TAV*TEMP2 

l F C I TRACE .GE. D WR ITE C 6, 11 CC ) TEMP2, FACTAV 

X*OSPAC-.25*C2 *FMZ/ F Mi ) / CDS? S I 
TEM? 1 « 1. /( X/C 1 -0. 2 ) 

T£M J 2 * i.G5*C0*S0RTC TE MPi-O. 15*TEMP1**2> 
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n n n o«»r» n mi (too (too oooo 


FACT AV » FACTAV*T£MP2 

IF4ITRACE .GE. H WRITE46»U101 T E HP 1 . T E HP2, F 42 T A* 

TEH? 1 « 1.36*NS3IR*C1/(TW0PI*AVSPAN *CQSPS! ) 
TEH? 1 * TEMPl*S0RT(C0*tX/Cl-0.35j ) + S I GOL 
I F 4 TEHP1.NE.1. » GO TO A 50 
TEM»2 » .5 
GO TO *60 

*50 T E M* 2 * PI*TEHPL 

IF4TEMP2 .EQ. 0.) TE HP 2 - 1. 

1FITEMP2 .HE. 0.) TEMP2 » SI N 4 T E HP 2 ) / T EMP2 
T EM? 2 - TEMP2/ ( l.-ITEMPl >**21 
*60 FACTAV * FACTAV*T£MP2 

IFUTkACE .GE. 1) WRITE(6#U10> TE MP l . T EMP2, F AC T A/ 


PERFORM GAJSSIAN INTEGRATION 

CALL GAUSS21RLOW.RUP. IQROGS .V ALU I NT » F ACT I NT, ARMl SC. M AXO I M , MAXJ, AR ) 

ACCUMULATE THE TERMS 

INTEGRL - INTEGRL ♦ F AC T A V* VA LU I N T 

ENO INTERVAL LOOP 
« 

IFUTkACE .GE. 1) WRITE! 6, 11 20) INTEGRL , V AL U I NT ,F ACT A V 
600 CONTINUE 

APPLY FIRST TERM AND STORE 

INTEGRL * F ACT C ON* INT EGR L 
ALPHAMNI N, I OFM) -INTEGRL 

IF4I TRACE .GE. 1) tf R IT E I 6, li 30 > INTEGRL 
ENO N AND M LOOPS 

700 CONTINUE 
300 CONT INUE 
1000 CONTINUE 


SAVE THE EIGENVALUE DETERMINING PARAMETERS 

IS0R050 - ISOROS 
EGN3NCQ « EGNBND 
ETA3 - eta 
HOMO - MO I M 
NOIHQ - N 0 I M 
R NO- S Vu * RNOFSV 
SIGNRBO * SIGNRB 

RETURN 
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RETURN 


1005 F0RMAT!1H1J 

1010 F0RMATI1H1#* OPTIONAL PRINTOUT FROM SUBROUTINE AAAAA*) 

1020 F0RMAU1HJ,* EIGENVALUE PARAMETERS GE NER A T ED* / Irl »2X»*NSBRB « *# 
II 2»10X.*SIGMA = ♦ * F3 . 0» 9X #* 5 1 GNR8 ■ *,F5.0#7X,* HSiT « *»FIG.4, 
22X#*RK * *. FIG.4.2X. *R<$QO ■ *#F10.4/1H »2X»*AXULM « **FL0.4» 

32 X# * C MAC H * ♦» F 1C. A. 2 X. *EGN6N0 » *, F 10 . 5 » 2X» *RN 3 F S V * *»F10.4»2X# 
4*ETA *#F10.4» 

1030 FORMAT! 1H0,* THE EIGENVALUES FROM PREVIOUS CALL TO SUBROUTINE *» 

1 * AAA A A ARE REUSED FOR THIS CASE*! 

1040 FORM A T ! 1 H0» * M * *#I2»3X,*L * * # I 2* 9X. * S I GQL » * » Fa . Z, 3X # *NS B IR* » 
1* * * # l 2 » 6 X# *N0 FN * * * I 2 ) 

) 05 0 FORM AT ! 1 HO/ * V * *t I 2#3X » *RMUHN * * » F 10 . 4» 3X * *Bc T AM N * *»F10.4»3X» 
1*CA?KMN * *. FiO .4. 3X# *C 4PNMN » *.F10.4) 
lObO FCRMAT11HC»* FACTCON * *, 2F 10 . 4 , 5X , *NOSC E * *,I2J 

1070 FORMAT (1H0»* RLOW * * .F 9 . 4. 3X , * RUP ■ *# F9.4»3X> *AV SPAN * *»F9.4# 

1 3 X » * C 1 = *»F ID. 4*3X* *C2 * ♦ » F 1C . 4 » 3X . *C 0 * *»F10.4/IH .* DC L * + # 
2F 10. 4#3X»*FMl * ♦ » F9.4»3X»*FME « *» F 9. 4 > 6X» *F MZ » *,F9.4/ 

311X. *AV( 10J * *»F9.4»2X»*AV!1 1) « * , F9 . 4 » 2 X , *F Ml E « *,F9.4» 

1080 FORMAT! lHO»30Xf *FACTAV » *# 2E 12.4 > 

1085 FORMATUHO** TEMPI « ♦» F 9. 4 # 3 X, * T EMP2 * ♦ » F9. 4 . 3 X . * T EMP 3 « ♦ »F9.’W 

1 IX #♦ FMM * *#F9.4#2X#*C0STHS * *, F9. 4» 3 X , * S I N3 e T A «• ,F9. 4/ 

2 IX ,* COSPSI* *#F9.4»3X#*FACTAV »*#2E12.h) 

Vd F CRM A T( 1 HO # * CAPLT « ♦ # 2 E 12 . 4 # 3X , *F ACT A V » *,2E12.4» 

..00 FORMAT! 1H0»23X, *TEMP2 * * »F ID . 4 , 39X > *F AC T A V * *.2E12.4> i 
1110 FORM A T ( 1 HD * * TEMPI * *»F10.4#3X,* TEMP2 » *» F 1 0. 4* 3 9X , *F AC T A V « *, 
12E12 . 41 

1120 FORMATUHO. * INTEGRL * ♦ » 2E1 2. 4, 4X . * V AL U l NT » *»2E12.4,4X, 

1* FACTAV « *,2E12.4) 

1 13D F GRM A T 1 1 HO# * INTEGRL • *,2E12.4) 

END 



3.1.2 Subroutine AABAA 


Purpose : 


This subroutine computes the mode amplitudes for a given har- 
monic. The noise is due to the nonstationary lift on the rotor 
or stator blades resulting from the interaction of the poten- 
tial flow field of two adjacent blade rows in relative motion. 
Four basic interactions are possible: (1,2) interactions 
between the inlet guide vanes and the rotor and (3,M inter- 
actions between the rotor and outlet guide vanes . For these 
cases interactions in the upstream ( 1 , 3 ) and downstream 
direction ( 2 ,U) are possible. The computation essentially 
consists of determining which modes contribute significantly 
to the sum, computing the required modal parameters, and 
evaluating a definite integral per mode. The integral is 
equation ( 9 ) from appendix I of volume I expressed for numer- 
ical evaluation: 


± _ CONSTANT 

inner FACTOR 


SUB 

E 



OSCILLATORY 

FACTOR 



with 


CONSTANT ) 
FACTOR f 


N 


-2ir 


K1 


-iR Z 
mne Kl 


2 3 inner 


OSCILLATORY 

FACTOR 



( p ) r K 2 (p)a K >K l (p)H K,K2^ p) 


(*fc) 

\ da Jl 


2tt 


0 * 


' ld K K1 (P) 

+ K e, ) * e ’ K (p) « 

mno Z / k,K 1 m 



75 



Method: 


The procedure is as follows : 


1) Set the parameters to Kl, K2, N„_ , and II 

KJ. Jxxz 

2) Obtain the eigenvalue generation parameters (the input 
to EGNVAL2). 

3) Compare these parameters to stored values to determine 
if the required eigenvalues are already available. If 
values are equal, proceed to step 6. 

4) Compute the mode indexes and the corresponding eigen- 
values . 

5) Error return if correct eigenvalues have not been 
computed . 

6) Loop on the spinning mode index. 

T ) Set values of required integers and C ' s . 

8) Loop on the radial mode index. 

9) Compute the propagation constants and the normalization 
of the duct radial eigenfunction. 

10) Compute the constant factor in the mode amplitude 
expression. 

11) Initialize the value of the integral to zero. 

12) Compute the number of equal subintervals required which 
is determined by the total number of zeros of the oscil- 
latory factor on the full integration interval. 
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Usage: 


Restrictions: 


13) Loop on subintervals. 

lit) Compute the lover and upper bound and the midpoint of 
the subinterval. 

15) Integrate the oscillatory factor over the subinterval. 

16) Accumulate the integrated oscillatory factor in the 
integral value, completing the loop on the subintervals. 

17 ) Multiply the constant factor into the integral value 
giving the mode amplitude for the current spinning mode 
index and radial mode index. 

18) Save the current eigenvalue generation parameters from 
step 2. The eigenvalues will not have to be recomputed 
in the next execution if these parameters remain 
unchanged . 

CALLING SEQUENCE 

DIMENSION MUSE(MDIM) .MAXN(MDIM) ,ARMUMN(NDIM ,MDIM) 

* ARMISC(1»0),AR(MAXDIM,MAXJ,3) 

COMPLEX ALPHAMN(NDIM,MDIM) 

CALL AABAA ( ARMISC ,MAXDIM ,MAXJ , AR ,MDIM , NDIM , ARMUMN ,NOFM , 

• MUSE ,MAXN , ALPHAMN , IERROR ) 

The use and restrictions on the input arrays ARMISC and AR 
and the input/output NOFM , MUSE ,MAXN , ARMUMN are given in 
section 2.2. 

The maximum spinning mode is limited (see subroutine EGNVAL2) 
in absolute value to 100, and the maximum radial mode index 
as a result is at most ho. 
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Error Return: 

Printout and 
Diagnostics : 

Timing: 


IERROR (see the FORTRAN dictionary, sec. 2.2) 

See the definition of ARMISC(6) ,ITRACE, in the dictionary. 

Of the cases run, the average time was 62 seconds per case. 
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SU8R OUTI NE AABAAI ARMI SC * MAXDl N# M A X J # AR » MD I M# NO I M # AR MUMN# 

INOFM# MUS E # MAXN# AL PHAM N# I ERROR ) 

R E Aw MS3T 

COMPLEX ALPHAMNINDIM# MOIM) 

COMPLEX FACTCON#FACT IN2# INTEGRL# VALUINT 

D I ME NS I OS ARM I SCI 21) # A<{ MAXDI M#MAXJ#3)# ARNUNNIMD IM» MDI M) # 

1MUSE ( PO I M ) »NAXNIMQIM) 

OAT A IL0GICQ#EGN9ND3# ETAQ#MDI MO# NO I MO# RS BNK l Q# S I GNK 10/ 

1 C . » - 1 • » - 1 • # 0 » 0# 0 •# 0 . / 

DATA El# T WOP 1 / 3. It 159265358979,6. 2 83 16 5 3 3717 959/ 

COMM ON/C f ACT2 /B#CAP<MN.CaPNMN#C 3#C6»C7#C3»C9»C11#C12#C 13 #C 1A#K1# 
l K2»L#M# N#NK2# RMUMN# S l GOL 


EXTERNAL FACTIN2 


1AER0 - ARMISC ( 13) 

ISOROS « ARMISC ( 5 ) 

I LOG 1 C « ISOROS 

I F ( I AERQ.EO.-l .AND. I SOROS. EO. 2) ILDGIC«1 
I F C 1 AERO.EO.-l .AND. 1 SOROS.EQ.l) IL0G1C«2 
INOX * I LOG I C ♦ I AERO 
ITRACE - ARMISC (6) 

I F ( I TRACE . 3 E . 1) WR IT£ ( 6# 10 iO ) 

COMPUTE Kl# K2# NK2 » 8 

K 1 * I LOG I C ♦ 1 
IFII NOX . EQ.lt Rl-1 
X2 * Kl- I AERO 
NK2» ARMI SC (10) 

1FUNLX.EQ.2) NK2* ARM ISC ( 8) 

I FI I NTX. E 0 . 0 ) NK2«ARM ISC ( 9) 

NKi • ARMI SC 1 10 ) 

I F(I NCX. E5.3) NKI « ARMI SCI 9) 

IFII N0X.EQ.15 NKI - ARMISCI8) 

I FI l AERO. EO. 1)8 -ARMISC! K2) 

IFII AERO.EO.-l) B x ARMISC l Kl ) 

IFII TRACE. GE.n WRITE <t»# 10151 K l # K2 # NK 1 # NK 2# B 

GENERATE THE EIGENVALUES 

IF(I LOGIC. EO. I ) NS3NKI - NKI 
iFUiOGIC.El.C) ■< " y* .< I * NK 2 
SIGMA * ARMISC '.it) 

SIGMKI * S1GMA*NS8N<1 
MSar - ARMISC I 7) 
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RK • SIGNK!*KSBT 

RKS30* RK**2 

AXT AIM • ARI 2» 9*K1 ) 

CMAIH * 1. -AXI ALM**2 
EGNJND * R K/ SQRTICMACHl 
IF(UCGIC.EO.l) RS3NKI « NK2 
mii.GGlC.E3. 2) RSBNKl « NK1 
ETA « ARMISCO) 

I F ( I TRACE .GE. 1) WRITE(6»1020)NSBNKJ»SIGMA»SIGNKI»MS3T»RK»RKSQD» 
1 AXlALM#CMACH,E3N8N0»RS3NKl>ETA 


I F ( 

I LOG I C 

.NE. 

I LOG I CO ) 

GO 

TO 

110 

I F ( 

EGNBNO 

.NE. 

EGN0NOO 1 

GO 

TO 

110 

I r - 1 

ETA 

.NE . 

ETAO ) 

GO 

TO 

110 

I F( 

MDIM 

.NE . 

MOIMQ ) 

GO 

TO 

110 

I F< 

NDI.M 

.NE . 

NO I MO ) 

GO 

TO 

no 

I F ( 

RS3NKI 

.NE. 

RS8NKI0 I 

GO 

TO 

no 

1 F i 

SIGNKI 

.NE . 

SIGNKI3 ) 

GO 

TO 

no 


I F ( I T R AC E .GE. 1) WRITE ( 6» 1030) 

GO TO 120 

e C ALL EGN V AL2 i IL0GIC»£GN8ND» ET A* MO I H, ND I M, RS3NK t » S IGNK l > t T R AC E> 

1 NO FM * MUS E» M AXN* A RMUMN* IEREGNV) 

TERROR « IEREGNV 

;h continue 

ERROR RETURN 

I ;■ i I tf.EGNV.EQ.O i GO TO 200 
IFtl E.'<EGNV-2I 150.130*150 
, IF<I TRACE. NE.O) WRITE(6»140) 

• 3 F0R<!AT(//1H0*70(1H*)//1HG»*A REDUCED SET OF EIGENVALUES IS AVAIL AB 
1L E */ l HO. *C QMPU T A T I ONS WILL PROCEDE*/ IH0» 7C ( 1H* ) ) 

GO TO 200 

.50 I F ( I ER rGNV-Al 200.150.200 
ioO JF(I TRACE. NE.O) WR|TE(o»180) 

K.O f ORM AT( / / 1HQ.70 1 1H*) / /1H0.*THERE ARE NO PROPAGATING RADIAL MODES*/ 
1 1 HO. * NO COMPUTATIONS CAN BE M AOE * / i HO. ( 1 H* ) > 

GO TO 1000 

■m continue 


CSBl R * ARMISC I 171 

I F ( 1N0X.EQ.3 ) ZSBIR « ARNISCU5) 
I F ( INDX.EO.l ) ZSBIR » ARMISCI15I 
l FL 3 W r AR M I SC ( A ) 


LOOP ON M 

on jOC i OF l# NCF i 

SET M.L. ANO NOFN 
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H « MUSE ( 10FM) 

L » ( M - SIGN* I ) / R SBNKI 
SIG3L * L 

l F< I LOG! D . £3. 2 > S I GQL *S l G MA 
NOFS * MAXNI IUFM) 

I F ( ITRACE.GE.l. AND. IQFrt.GT.U WRITE(6»1005) 

IFIITkACE .GE. II WRITE{6»iD<fG) m.l.sigql. nqfn 

COMPJTE ALL THE C VALUES 

C? * SIGN! 1.. SI GQL I 
CU - -:7*FLOAT ( I AERO I 
Co « 2.*FL0AT( 1LDGIC) - 3. 

C 3 • (2. AFLOAT { IS0R3S I - 3.) * C-C7I 
C 12 * C7 
C 13 » C7 
C 9 * C3*C7 
C 14 « C9 
C 3 * -C 3 

IF! ITRACE .GE. 1 ) WR ! T El 6, 10A 5 I C3»Cfc»C7»C8> C*9# C 11»C12»C13»C14 
LOOP ON N 

nn roc n*i.nqfn 

CALCULATE PROPAGAT I3N FACTORS 

RM'JMN » ARMUMN ( N, IGF Ml 
5 ETA MN • SORT! R KSOD-C MAC H*R MJ KN** 2) 

C AP< M f * * <-RK*AXIALM ♦ ( FLOW*SETAMN) /C MAC H 
CAPNMN => EGNNORMIM.RMUMN.ET A) 

IFUTRACE .GE. II WR l TE { 6# 10 5C J N» R MUMS » 8ET AMN* C A^ < MS. C A P NM N 


COMPUTE MODAL AMPLITUDES 


CALCULATE CONSTANT FACTOR. F AC TC ON 
ARGS XP «-C APKMN*ZS8IR 

F ACT C ON * l-.Z5*NKl/8ET4MN)*CMPLXlC0StAiRGEXPl * S I NIARGEXP) ) 
I * { TW QP I ) 

SET THE NUM3ER OF SUB- INTERVALS FOR WHICH THE 
LAST TWO TERMS ARE EVALUATED 

JR3GS - 2 
INTEGRL * tG. .0.3 


SET NUMBER OSCILLATI ONS 
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NOSCE > A8 S ( S I GOL ) +NK 2 
NOS2E * MAXOINOSCE.N) 
nos:e » 1.5 * NOSCE 
nos:e » M A XO ( NO SCE »2 ) 

WIOTHI « < l.-ETAI/NOSCE 

IFUTRACE .G£. 1) WK IT E < 6» iO t>0 > FACTCQN.NQSCE 

LOOP ON NUMBER OF SUBINTERVALS 

DO 600 I TRVL-1. NOSCE 
RLGW « ETA ♦ C 1TRVL-1)*WI0THI 
RUP ■ RLOW ♦ WIDTHI 
v ? CONTINUE 

I F ( I T RAC E .GE. 1> WRITE! 6» 1070) RLQW.RUP 
PERFORM GAUSSIAN INTEGRATION 
I FlI TRACE. EO. 3 > WR ITE (6* 1 11 5) 

CALL GAUSS 2( RL 0 W» RUP » IOR 0 GS W ALU I NT* F AC T I N2# ARMI SC» MAXOI M./IAXJ.AR) 
ACCUMULATE THE TERMS 
!NTEGRL « INTEGRL ♦ VALUINT 

END INTERVAL LOOP 

• *• 

IFUTRA:e .GE. 1) WRITEI6. 1120) INTEGRL .VALUINT 
. 2 CONTINUE 

APPLY FIRST TERM AND STORE 

INTEGRL « FACTCON+INTEGRL 
ALPHAKNIN. IOFM) -INTEGRL 

I F C I T RAC E .GE. 1) WR IT E ( 0. 11 30) INTEGRL 
END N AND M LOOPS 

JO CONTINUE 
vJO CONTINUE 
I 200 CONT I NUE 

SAVE THE EIGENVALUE DETERMINING PARAMETERS 

I LOG I CO - IL0G1C 
EGN3N00 » EGN8N0 
ETAO - ETA 
HOMO » MO l M 
NO I i 3 * NO I M 

R S3 ^ X 10 * RS3NXI 
S IGNKIO » SIGNKl 
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RETURN 


RETURN 


C 

1005 FORMAT ( 1H1 ) 

1010 F0RM4TUH1#* OPTIONAL PRINTOJT FROM SUBROUTINE A ABA A* ) 

1015 FORMAT t 1HC # * <1 « *#12#3X#*K2 « *#I2#6X#*NK1 » *»I3#6X#*NK2 * *# 

1 1 3# 3 X » *3 = *#F10.A» 

1020 FORMAT U HO # * EIGENVALUE PARAMETERS GENERATED*/ H #2X#*NSBNKI * *# 
iI2#iOX»*SIGMA « *»F3.0»9X#*SI GNKI * *#F5.0#7X»* MSB T * *#F10.A# 

22 X# * R K * *# F 1 0 . A# 2X # *RKS QD a *#F10.A/1H »2X#*4XIALN * *>F10.4» 

32 X* * CPAC H * *# F 10. A* 2X»*£GN8N0 * *# F 10 . 5 » 2X, *RS 3 NK I » *#F10.4#2X# 
4*£TA * *» F 10 . A J 

1030 FORMATUHO#* THE EIGENVALUES FROM PREVIOUS CALL TO SUBROUTINE *# 

1* AA3 A A ARE REUSED FOR THIS CASE*) 

1040 FORMATUHO#* M = *# 1 A » 3X » *L « *» i 2# 9X» *S I GOL » *#F6.2# 

1 oX# *N0 FN = * » I 2 ) 

1CA5 FORMAT ( / 1 IX# *C 3 * *» F 2. 0 » 2X # * Cb • * # F 2 . 0» 2X» +C 7 * + # F2 .0# 2X# *C9 * 
1* # F2 • G» 2 X » *C 9 * *#F2. C#2X#*C1 1 * *, F 2 . 0 * 2 X# *C 1 2 * *#F2. 0.2X# 

2*C13 = *# F 2. 0# 2X» *C 1 A * *»F2.C) 

1050 FORMATUHO#* N * *# l <* # 3X # *R M J MN * *> F 10. A# 3X» *BE T AMN * *»F10.A»3X» 
l*CA?KrN * *#F10.4#3X#*CAPN,MN * *,F1G.A> * 

1 C60 FORMATUHO#* FACTCON « *# 2F 10 . A# 5 X# *NOSC E » *#I2J 

1 070 FORMATUHO,* RLQW * * ,F9. A. 3X #*RUP * *♦ F9.A) 

i 115 FORMAT ( IHO »3X# *RHO*# 3X. *MMK1*#3X#*GAMMA*#6X,*ARH0*» 9X# *C A PHRHO+# 
U2X. * EXP DR HO*# 12X#*CAPKRH0*#9X#*FACT*#AX»*SCPTRMN*# 9X# *F AC T I N2*/ ) 

.120 FORMATUHO# * INTEGRL * * # 2E 1 2. A # AX # *V AL U I NT = *#2E12.A) 

1130 FORMATUHO#*' INTEGRL * *#2E12.A» 

ENO 


87 



3.1.3 Subroutine BCDAA 


Purpose: 


This subroutine computes the mode amplitudes , for a given 
harmonic, vhen a rotor operates in steady distortion. The 
computation essentially consists of determining which modes 
contribute significantly to the sum, computing the required 
modal parameters , and evaluating a definite integral per 
mode. This integral is equation (9) from appendix 1 of vol- 
ume I expressed for numerical evaluation: 


± ( CONSTANT! 

A tnno ” ( FACTOR f 


SUB 

£ 

j=l 


{ AVERAGE OF 
NON-OSCILLATORY 
FACTOR 



j OSCILLATORY \ 
(FACTOR f dp 


with 

, . -N “IK* Z 

( CONSTANT) ^R g mn 

(FACTOR f 40 
' ’ ran 


! NON-OSCILLATORY 
FACTOR 



* 


C 2\^)W Sing 

I \ 

\ — — + K~ e V CAPLT 
{ p mn Z f 


OSCILLATORY 

FACTOR 


= W (p) <R 
x. ra 



See the FORTRAN dictionary (sec. 2.2) for CAPLT. 


Method: 


The procedure is as follows : 
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l) Obtain the eigenvalue generation parameters (the input 
to EGNVAL2). 



2) Compare these parameters to stored values to determine 
if the required eigenvalues are already available. If 
values are equal, proceed to step 6. 

3) Compute the mode indexes and the corresponding eigen- 
values . 

1+) Error return if correct eigenvalues have not been 
computed. 

5) Loop on the spinning mode index. 

6) Set values of required integers. 

7) Loop on the radial mode index. 

8) Compute the propagation constants and the normalization 
of the duct radial eigenfunction. 

9) Compute the constant factor in the mode amplitude 
expression. 

10) Initialize the value of the integral to zero. 

11) Compute the number of equal subintervals required, 
which is determined by the total number of zeros of the 
oscillatory factor on the full integration interval. 

12) Loop on sub intervals. 

13) Compute the lower and upper bound and the midpoint of 
the subinterval. 

14) Set up for accessing the input geometric and aerodynamic 
data. 
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15) If the average value over the full interval of a geo- 
metric or aerodynamic variable is input, use it and 
proceed to step 17. 

16) Compute an average value on the subinterval for the 
geometric or aerodynamic variable. 

17) Initialize the nonoscillatory factor to the product of 
the average value of the first two variables appearing 
in that factor. 

18) Compute flow angles and multiply the average value for 
the next three variables in the nonoscillatory factor 
into that factor. 

19) Compute the reduced frequency and the lift function 
coefficients (used for noncompact factor also). 

20) When the compact option is specified, compute the value 
for the frequency response function of the lift and 
multiply this into the nonoscillatory factor. 

21) When the noncompact option is specified, compute the 
noncompact factor and multiply this into the nonoscilla- 
tory factor. 

22) Compute the inner product, or projection, factor and 
multiply into the nonoscillatory factor. 

23) Integrate the oscillatory factor over the subinterval. 

2b) Multiply the nonoscillatory and the integrated oscilla- 
tory factors together and accumulate in the integral 
value, completing the loop on the subintervals. 
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25) Multiply the constant factor into the integral value 

giving the mode amplitude for the current spinning mode 
index and radial mode index. 


Usage : 


Restrictions : 


Error Return: 

Printout and 
Diagnostics : 

Timing: 


26) Save the current eigenvalue generation parameters from 
step 1. The eigenvalues vill not have to be recomputed 
in the next execution if these parameters remain 
unchanged . 

CALLING SEQUENCE 

DIMENSION MUSE(MDIM) ,MAXN(MDIM) ,ARMUMN(NDIM,MDIM) , 

* ARMISC(itO) ,AR(MAXDIM,MAXJ,3) 

COMPLEX ALPHAMN { NDIM ,MDIM ) 


CALL BCDAA ( ARMISC ,MAXDIM ,MAXJ ,AR ,MDIM,NDIM , ARMUMN ,NOFM , 

* MUSE ,MAXN, ALPHAMN, IERROR) 

The use and restrictions on the input arrays ARMISC and AR 
and the input /output NOFM, MUSE ,MAXN, ARMUMN are given in 
section 2.2. 

The maximum spinning mode is limited (see subroutine EGNVAL2) 
in absolute value to 100, and the maximum radial mode index 
as a result is at most 1*0. 

IERROR (see the FORTRAN dictionary, sec. 2.2) 

See the definition of ARMISC(6) ,ITRACE, in the dictionary. 


Of the cases run, the average time was 117 seconds per case. 
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NONCPT 


CALL I 


NON- COMPACT OPTION, 
COMPUTE NON-COMPACT TERM 

-^<ARMISC (38L0> »- 

CAPLT 



LIFTFN3 


t CALL 


COMPACT OPTION, 
COMPUTE LIFT FUNCTION 
CAPLT 
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SUBROUTINE 8 CD A A (ARM I SC » MAXOI M, MAX J# AR* M D I N, NO I M » AIR NUMN. N OEM# HUS E > 
1MAXN. ALP HAHN. I ERROR) 

REA. MS9T 

COMPLEX ALPHAMN1NDIM. MO I MI 

COMPLEX FACTAV.FACTCON.FACTIN3.1NTEGRL.CAPLT .VALUIMT 

DIME NS I ON ARMI SCIl). ARIMAXO IM.MAXJ.3) . AR MUNMI NO I M, N D IM ) . 

1 MUSE ( MQ1 M) . MAXN(MDIM) 

0 I ME NS I ON AVI I 1 ) 

DATA EGNBND3.ETA0.MDI MO. NO I MO. RN OF SVQ, S I GNR 30/ 

1 ~ 1 . » ~ I . » 0. 0. J . . 0 • / 

OATA PI.TrfOPI / 3. lMl592t>5358979. o. 28313530 717 959/ 

C UMN ON/ CF ACT/ M #N.R M UMN » C APNMN. E T A. S I GN . L . C APKN N 

EQUIVALENCE ( AV (1) . AV SPAN ). (AVI3I.C2). 

I ( AV( bl/OCL » » < A V (71 ,FM I) » < AV Id I.FME) , (AV( 9 I.FMZ) 

EXTERNAL FACTIN3 


ITRACF * ARM ISC (61 
I F ( l TRACE .GE. II WRITE(6. lOiOl 

GENERATE THE EIGENVALUES 
« 

NSBRB * ARM I SC ( 10 ) 

SIGMA * ARNISC(IA) 

SIGNRB * S I G MA ♦ NSBRB 
MSGT * A RM I SC ( 7 ) 

RK « S 1 GNR B* M SB T 
RXS30* RK**2 
AXIALM » AR ( 2. 9.2) 

CMACH * I . - AX I A L M* *2 
EGN3NC * RK/ SORT(CMACH) 

RNO- SV > l 
ETA » ARM I SC ( 3 ) 

IFMTKACE .GE. 1) WR ITE ( 6. 1020> NS B R 3 . S I GMA , S I 3 NR3 . MS 3T . R K, RKS Q 0. 
1 AX I ALM. CMACH .EGNBNO. RNO FSV. ETA 


! F ( 

EGNBNO 

,NE. EGN8ND0 I 

GO 

TO 

110 

I F < 

ETA 

.NE. ETAO 1 

GO 

TO 

110 

I F ( 

MOIM 

•NE. MDIMO > 

GO 

TO 

no 

IF( 

NT IM 

.NE. NO I MO I 

GO 

TO 

no 

I F ( 

RNOF S V 

.NE. RNOF S VO ) 

GO 

TO 

no 

I F ( 

SIGNRB 

.NE. SIGNR80 I 

GO 

TO 

no 


I F ( I TRACE .GE. D WR ITE ( 6. 10301 
GO TO 120 

G CALL EGNVAL2 ( 2 . t GN3 NO. ET A. M3 I M, NO I M, RN OF S V. S I i NR3 » l TR AC E » 

1 N OFM. MUS E. M A XN » A RMUMN. IEREGNV) 
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oon c> «-■»«> onon f»oc» o t > o 


I ERR OR * l EREGNV 
120 CONTINUE 

ERROR RETURN 

1 F { I EREGNV. E0.0) GO TO 200 
I F ( I E REGNV-2 ) 1 50* 130 *150 
130 IFII TRACE. NE.0) WRITE(o»140) 

140 F0RMAT(//1H0,70< 1H*) / /1H0,*A RE0UCE0 SET OF EIGENVALUES IS AVAILAB 
1LE*/ 1H0* ♦COMPUTATIONS WILL PR OC ED E* / IHO# 70 ( 1H* ) ) 

GO TO 200 

150 l F( l EREGNV-4) 200.160,200 
160 IFII TRACE. NE .0) WRITEI6.130) 

160 FORMAT!/ /IH0.7C C 1 H* J /VlHO**THtRE ARE NO PROPAGATING RAOIAL MOOES*/ 
11H0,*N0 COMPUTATIONS CAN BE N AOE */ 1 HO* 70 ( 1H* ) ) 

GO TO. 1000 
200 CONTINUE 


ZSBIR « ARMISCI 17) 
I FLO W*AR M I SC I 4 ) 


LOOP ON M 

00 BOG 1 OF M« 1* NOFM 

SET M,L* ANO NOFN 

H « MUSE ( I OF M) 

L * (M-5IGNR8)/RNGFSV 
NOFN * .M A X N ( IOFM) 

I F ( I 0FM.GT.1.AN0.ITRAC6.GE. 1) WRITE (6* 100 5) 

1 F ( I TRAC E .GE. 1) WR ITE< 6, 1040) M, L , NS BRd * N3FN 

LOOP ON N 

00 700 M« 1 * NQF N 

CALCULATE PROPAGATION FACTORS 

RKUMN « ARHUMN ( N, IOFM ) 

B ETA MN « SORT ( RKSQD-C MACH*RMJMN**2 ) 

C AP< MN « ( -RK* A X I ALM ♦ I F LOW* BETAMN) /CMACH 
CAPNMN « EGNN3RM(M*RNUMN*ETA) 

IF(I TRACE .GE. 1) WR IT E I 6, 1050) N, R MUMN, BET AMN, CA»KMN*C APNMN 


COMPUTE MOO A L AMPLITUDES 
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O C > f > o 


r 


CALCULATE CONSTANT FACTOR# FACTCON 


TEMPI » -C APKMNPJSBIR 
F AC T C ON * - .25*NS8R9/( 8ETAMN )*l 
1CMPLXI COS (TEMPI)# SIN(TEMPl) ) ) 

SET THE NUM3ER OF SU8- i NT E RV AL S FOR WHICH THE 
LAST TWO TERMS ARE EVALUATED 

1OR0GS « 2 
INTEGRL « <0.#0.) 

SET NUMBER 0 SC I LLATI GNS 

NOSCE * 1 

NOSCE * MAXO ( NO SCE #N ) 

NOSCE * 1.5 * NOSCE 
NOSCE * MAXO (NOSCE#2 ) 

wiorm - ( i.-etaj/nosce 

tFUTFACE .GE. 1) WR IT E ( 6# I0t>0) FACTCON# NOSCE 

LOOP ON NUMBER OF SUBINTERVALS 

DO 60C I TR VL*1# NOSCE 
P.LO A = ETA ♦ ( ITRVL-1)*WIDTHI 
RUP * RLOW W IOTHI 
.'70 CONTINUE 

EVALUATE TERM TO 8£ AVERAGED 

SET AVERAGE SPAN 

AVSPAN » (RLOW ♦ RUP I*. 5 
AVU > « AVSPAN 

SET K. INDEX 

K « 2 

SET AVERAGE VALUES 
DO <*OC I AV* 3# 1 1 

SET J INDEX 

J * t AV 

IFIIAV.E0.3) J « 2 
tFMAv.sO.ion^^^iRMrscc i® + ki *■ i 

I F 1 4 A ,-C i . i *• * i * f 

I F ( J.EJ.<* ) GO TO <*00 
1 F < J.E3.5 ) GO TO <*00 
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SET K INDEX T3 BE USEO 


XU « K 


SET SPAN WHEN J»1 

NSPM » A ft t 1, J»KUI 

AVERAGE VALUE IS INPUT 

I F I NSPN ) AGO. 330. 3AO 
330 AVI (AV) * AR( 2 * J» KU ) 

GO TO AGO 


INTERPOLATE FOR AVERAGE VALUE 


IPA*-1 

CALI MTLUPI AVSP AN# AVI UV) , L »N SPN. NS P N» l» IP A. ARI 3 * i*XU> »AR( 3. J.KU) ) 
A00 CONTINUE 

I F 1 1 Tfi AO E .GE. 1) WR I T E I 6. 1070} RLOW.RUP. AVSPAN »C2 .DCL.FM, 
1 FME.FMZ.AVtiO), AVI 11) 

CALCULATE THE AVERAGE FACTOR. FACT4V 


FACTAV » C2*0CL 

IFIITRACE .GE. 1) WR ITE I 6. 10 80) FACTAV 

COMPUTE MACH NUMBER RELATED VARIABLES 

TEMPI • SORT! FMI**2 -FMZ**2 I 
T EM 3 2 - SORT I FME**2 -FM 1**2 ) 

T EM 3 3 -0.25*ITEMPI^TEMP2) *+2 

F MM » SORT! F MZ **2 «• TEMPS I 

COSTHS * F MZ TF MM 

SINTHS * SORTIl. - CQ STHS **21 

SIN3ETA * SINTHS 

C0T3ETA « COSTHS/SINTHS 

UPDATE AVERAGE FACTOR 

FACTAV * FACTAV *F MM AF HZ ♦ S INBETA 

I F ( ITRACE.GE.i) WR I T E I 6. 10 85 ) TE MP 1 . T E MP2. TE MP 3 . FM M.CQS THS. 
1 SINBETA. FACTAV 

COMPUTE REDUCED FREQUENCY 

RNU * .5*L*C2*MS3T/f 
3 i * : . 

B 2 * -AVI li)*C0TBET4 
83 * -AVI IG) *COTBETA 



COMPUTE COMPACT OP T ! ON 


1F< ARMISCI38J .NE.O.) GO TO 410 
CALi Llf TFN3<RNU,Bl,32.33»CAPLT) 

GO TO 420 

r COMPUTE NON-COMPACT OPTION 

410 CONT I NUE 

CAL. NGNCPTI 81, 82.83.C2.C APKHN.C OSTHS, M. AVSPAN.RNU. S I NTH $ , C A PLT ) 

V» 

UPDATE AVERAGE FACTOR 

420 FACTAV « FACTAV*CAPLT 

f F 4 ITRACE.GE.l I WR I TE I 6» 1C9G) FACTAV»C APLT 

TEM°2 ■ MAC OS T HS / A VS PAN ♦ C AP KMNA S 1 NTHS 

FACTAV * F AC TA V *T£MP 2 

IF(I TRACE . GE. 1J WR I T E ( 6 . 11 CO ) FACTAV. TEMP2 
PERFORM GAUSSIAN INTEGRATION 

C ALL GAUSS 2 ( RLOW.RUP. IOROGS. V ALU I NT , F AC T I N 3. ARMI SC. 1AXDI M.MAXJ, AR ) 

ACCUMULATE THE TERMS 

INTEGRL * INTEGRL ♦ F AC T A VA VA LUI NT 

C END INTERVAL LOOP 

I FI I TkACE.GE.l ) WRITE (o. 1120 FACTAV. V ALU I NT, INTEGRL 
^00 CONTINUE 

APPLY FIRST TERM AND STORE 

INTEGRL « FACTCONAINT EGRL 
ALPTAMNIN.IOFM) -INTEGRL 

IFUTRACE .GE. 1) WR ITE I 6. 11 30 > INTEGRL 

C END N AND M LOOPS 

70 0 CONTINUE 
300 CONI l NUE 
1000 CONTINUE 

/*♦ 

V 

: SAVE THE EIGENVALUE DETERMINING PARAMETERS 

EGN1NCQ » EGNjVO 

ETAD - ETA 

MDIMO « MO I M 

NDIMO » NO I M 
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RNOFSVO * RNOFSV 
S IGNRBQ » SIGNR8 

RETJRN 

1005 FORMAT! 1H1// ) 

1010 FORMAT ( 1H1// 1 1 X ,* OPTIONAL PRINTOUT FROM SUBROUTINE BCDA6*) 

1020 FORMAT ( 1H0.10X, *£ IGENVALUE PARAMETERS GENERATED*/ 13X.*N$BR8 » *, 

II 3,2X,*S IGMA * *»F3.G»2X»*S IGNRB * *• F 6 . 0# 2X> ♦ MS 3T * *,F1C.A/13X, 
2*RK. * *»FiO.A.2X»*R<SQO * * »F 10. A, 2 X# * A X I ALM * *»F10.4/13X, 

3*CMACh « *»F 10. 4#2X»*£GNBND « *» 2 X# F 10 . 5 > 2 X. *RN J F S / * *»F10.A/13X, 
4*£TA * * , F 10 • 5 ) 

1030 FORMAT ( 1H0* IOX. *TH E EIGENVALUES FROM PREVIOUS CALL TO SUBROUTINE B 
IBCAA*/11X# * ARE REUSED FOR THIS CASE*) 

1 GAO FORMAT! IHO, IOX, +M * *,I4#2X,*L « *»I4.2X, 

1 * NS3 R B * * # I 3, 2 X, *NOF N * *, I A J 

1050 FORM AT(1 HO, IOX, *N * * » 1 4 » 2X , * RMUMN * * » F 1 0. 4, 2X » *BE T AMN * *,F10.4/ 
l 2 0 X # * C A P K M N * *.F1C.A»2X.*C APSMN * *»F10.A) 

10t>0 FGRMAT<1HO,10X,*FACTCQN * *,2E12.4,2X,*NQSCE - *>I4J 
1070 FORMAT ( IHO, IOX, *RLOW - * , F<5 . A , 2X , *RUP * * * F9. A# 2 X , * A VS P A N « *,F<>.A 
1 / 1 IX » *C 2 * *,F10.4,2X, *0C L - *» F U . 4/ 1 1 X , 

2*FMl * *F9.4»2X»*FHE - * * F9 . A . 2X# *F MZ « *,??.*/ 

3 1 IX, * AVI 1C ) * *,F9.4, 2X. *AV ( l 1 ) - +,F9.4> 

1080 FORMATUHO# 10X, *FACTA V * *,2£12.4> 

1C35 FORMATtlHO,* TEMPI « ♦. F9 .4 , 2 X, *T E MP2 * *»F9.4»2X»*TEMP3 * *,F9.A/ 

1 IX.* F MM - *.F9.4,2X,*CaSTHS* ♦. F9. A » 2 X .* S I NBE T A «♦ ,F9. A / 

2 IX,* FACTAV- ♦.2E12.M) 

l 090 FORMAT! 1N0, 10X, *FACTAV « *, 2E 12. A»2X,*C APLT * *,2E12.A> 
i 100 FOR MAT ( IHO* iOX. *FACTAV * *»2cl2.A»2X,*TEMP2 * *,2E12.4J 
120 FORMAT! IH0.10X, *FACTAV * * , 2E 1 2. 4, 2X , *VAL U I NT «*,2E12.4/ 
illX, * INTEGRL «*2E 12. A) 

1130 FORMAT! 1H0, IOX. *INTEGRL **,2E12.4) 

END 



3.1.4 Subroutine BBCAA 


Purpose: 


This subroutine computes the mode amplitudes for a given har- 
monic. The pressure results from the nonstationary lift 
induced on the rotor blades sis they cut through an eddy which 
is convected with the flow. The computation consists of deter- 
mining which modes contribute significantly to the sum, 
computing the required modal parameters, and evaluating a 
definite integral per mode. The integral is equation (9) 


from appendix I of volume I and is expressed for numerical 


evaluation: 


+ 

A - 


mno 


N 


SUB 


CONSTANT 

FACTOR 




{ AVERAGE OF 
NON-OSCILLATORY 
FACTOR 



OSCILLATORY 

FACTOR 


with 

+ 

-IV - 7 

(CONSTANT) = -N mn 

(FACTOR (48 6 

mn 


! non-oscillatory) /jM / m % 
FACTOR j C yda J Z \ p 


+ K~ 
mn 



( OSCILLATORY 
\ FACTOR 


FACT IN 4 


See the FORTRAN dictionary (sec. 2.2) for FACTIN4. 
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Method: 


The procedure is as follows : 


1) Obtain the eigenvalue generation parameters (the input 
to EGNVAL2). 

2) Compare these parameters to stored values to determine 
if the required eigenvalues are already available. If 
values are equal, proceed to step k. 

3) Compute the mode indexes and the corresponding eigen- 
values . 

M Error return if correct eigenvalues have not been 
computed . 

5) Loop on the spinning mode index. 

6) Set values of required integers. 

7) Loop on the radial mode index. 

8) Compute the propagation constants and the normalization 
of the duct radial eigenfunction. 

9) Compute the constant factor in the mode amplitude 
expression . 

10) Initialize the value of the integral to zero. 

11) Compute the number of equal subintervals required, 
which is determined by the total number of zeros of the 
oscillatory factor on the full integration interval. 

12) Loop on subintervals. 
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13) Compute the lower and upper hound and the midpoint of 
the suhinterval. 

14) Set up for accessing the input geometric and aerodynamic 
data. 

15) If the average value over the full interval of a geo- 
metric or aerodynamic variable is input, use it and 
proceed to step IT. 

1 6 ) Compute an average value on the subinterval for the 
geometric or aerodynamic variable. 

17 ) Initialize the nonoscillatory factor to the product of 
the average value of the first two variables appearing 
in that factor. 

18) Multiply the average axial Mach number into the non- 
oscillatory factor. 

19) Compute the inner product, or projection, factor and 
multiply into the nonoscillatory factor. 

20) Integrate the oscillatory factor over the subinterval. 

21) Multiply the nonoscillatory and the integrated oscilla- 
tory factors together and accumulate in the integral 
value, completing the loop on the subintervals. 

22) Multiply the constant factor into the integral value 
giving the mode amplitude for the current spinning mode 
index and radial mode index. 

23) Save the current eigenvalue generation parameters from 
step 1. The eigenvalues will not have to be recomputed 

in the next execution if these parameters remain unchanged. 
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Usage: 


CALLING SEQUENCE 


Restrictions : 


Error Return: 

Printout and 
Diagnostics : 

Timing : 


DIMENSION MUSE(MDIM) ,MAXN(MDIM) ,ARMUMN(NDIM,MDIM) 

* ARMISC(UO) ,AR(MAXDIM,MAXJ,3) 

COMPLEX ALPHAMN ( NDIM ,MDIM ) 

CALL* BBCAA( ARMISC .MAXDIM ,MAXJ ,AR ,MDIM ,NDIM ,ARMUMN ,NOFM, 

# MUSE ,MAXN, ALPHAMN, I ERROR) 

The use and restrictions on the input arrays ARMISC and AR 
and the input/output NOFM,MUSE,MAXN,ARMUMN are given in 
section 2.2. 

The maximum spinning mode is limited (see subroutine EGNVAL2) 
in absolute value to 100, and the maximum radial mode index 
as a result is at most 1*0. 

I ERROR (see the FORTRAN dictionary, sec. 2.2) 

See the definition of ARMISC(6) ,ITRACE, in the dictionary. 


Of the cases run, the average time was 1^5 seconds per case. 
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OBTAIN OR CALCULATE 
THE EIGEN VALUE GENERATION 
PARAMETERS 


EGNBND, ETA, 
MDIM, NOIM, RNOFSV.SIGNRB 



CALCULATE THE 
EIGEN VALUES 

MB 

EGNVAL2 

NOFM, MUSE, 
MAXN, ARMUMN 

i 
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SUBROUTINE BBC A A< ARM I SC* MAX 01 M# MAX J » AR* NO I M»ND l M * AR MUMN» NOFM »MUS E * 
1MAXN* ALPHAMN* I E RRQR) 
r 

REAL MS3T 

COMPLEX ALPHAMN ( N D l M * MO l M ) 

COMPLEX CAPLT, F ACT AV # FACT CON* fact INA, integrl*valuint 
C 

DIMENSION ARMl SC( ll*AR(MAXDlM*MAXJ» 3) . AR MUMN< ND l M» AO I M > » 

IMUSE ( MOI M) » MAXN (MO IN ) 

DIMENSION AV ( 11 ) 

c 

OATA EGNBNDO# ET A 0. MO I M0» NO I MO# RNQF S VO * S I tfNRBO/ 

1 ** 1 . , ~1 • # 0 * 0 » 0 .» 0 . / 

DATA PI» TWOPI /3. I A 1592 65 3 5 8<? 79, 6. 2 83 13 530 71 7 9 59/ 

C « 

COMM ON/: FACT/ M#N#RMUMN. CAPNHN, ETA. S IGN# L.CAPKMN 

EQUIVALENCE (AV ( 1) »AVSPAN)» (AVI3)»C2J» 

l( AV( 6I.0CL )» ( AV (7) »FMl) , t AV <3 )>FKE) » UV(9) »FM7) 

v 

EXTERNAL FACTINA 


I TRACE * ARMISC (61 

IFdTRACE .GE. l» WRIT£(6#I010) 

GENERATE THE EIGENVALUES 

NS3RB * ARMISCI10) 

SIGMA « ARMISC ( 1A I 
SIGMR6 • S IGMA HNS8R3 
MSBT . ARM I SC ( 7) 

RK « SIGNRB*MSBT 
RKS3D* RK**2 
AXIALM * AIH 2, 9,2) 

CMA:h * 1 . - A X I A L M**2 
EGNJND « RK/ SORT(CMACHl 
RNQF S V » l 
ETA » ARMISC (3) 

IFdTRACE .GE. I) HR ITE ( 6# I020I NS BR3 » S I GMA , S I 3 NR3 , MS 3 T , RK » RKSQ D, 
l AXIALM* CM ACH* £GN8N0»RN3FSV» ETA 


I F ( 

ECN3N0 .NE. 

EGNBNOO ) 

GO 

TO 

no 

I F ( 

ETA 

.NE. 

ET A3 ) 

GO 

TO 

no 

I F ( 

MD I M 

.NE . 

MO I MO ) 

GO 

TO 

no 

1 F ( 

NDIM 

• NE . 

NO I M 0 ) 

GO 

TO 

no 

IF( 

RNQF S V .NE. 

RNOFSVO ) 

GO 

TO 

no 

I F ( 

SIGNRB .NE. 

SIGNRBO » 

GO 

TO 

no 


IFdTRACE .GE. l> HR ITE ( 6» 1030) 

ID TO 120 

HO CALw EGN VAL2 ( 2 , E GNB NO, ET A, MO l M» NO I M» RNOF S V, S I Gl *8 , I TR AC E, 

l NQFM,MUSE»MAXN«AKMUMN* IEREGNV) 


112 



uou uu u uoou oun uoo 


I ERR OR ■ IEREGNV 
120 CONTINUE 


ERROR RETURN 

1FU EREGNV.EO.O ) GO TO 200 
I F C I ERE3NV-2) 150. 130.150 
130 IF(l TRACE. NE. 01 WRITE (6. 1 *0 ) 

140 F0RMATJ//1HD»73(IH*)//1H0»*A REDUCED set OF EIGENVALUES IS AVAILAB 
1LE*/ 1H0.*C0HPJTAT10NS WILL PA OCE D E* / 1H0. 70 1 1H* ) ) 

GO TO 200 

150 IF(1 EREGNV-4) 200.160.200 

loo mi trace, ne.oj writeio.ibo) 

160 FORMAT! // 1H0.70 ( 1H*) / /1HC»*THER£ ARE NO PROPAGATING RADIAL MOOES*/ 
11H0.*N0 COMPUTATIONS CAN BE M A0E * / 1 HO# 70 l 1H* » ) 

GO TO 1000 
200 CONTINUE 


2SBIR « ARM I SC ( 17) 
IFL3W-ARMISC14) 


LOOP ON M 

00 300 10FH«1»N0FN 

SET M.L. ANO NOFN 

M • MUSEC I OFM) 

L « ( M-S IGNRB) /RNQFSV 
NOFN ■ MAXNl lOFMl 

IFd OFM.GT.l.AND.lTAACE.GE.l) WR I TE l 6. 1005 ) 

IFII TRACE .GE. 1) WRITE16. 10 40 M.L. NSBR3.N1FN 

LOOP ON N 

00 700 N-l.NOFN 

C CALCULATE PROPAGATION FACTORS 

RMUNN > ARMUMN I N. IOFM ) 

BETAMN - SORTl RKSOO-C MAC H *RM'JMN** 2 J 
C APR MN « ( -RK* A X l ALM ♦ l F LO b* BE T AMN ) /CM A C H 
CAPNMN « EGNN0RMIM.RMU1N.ETA) 

l FI l TF ACE .GE. 1) WR ITE16. 1050) N. R MUMN . BET AMN. C AP KNN. C AP NMN 


COMPUTE MODAL AMPLITUDES 
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C CALCULATE CONSTANT FACTOR* F AC TC ON 

C 

TEMPI - -CAPKNN*ZSBIR 

FACTCON * (-NSBRB*CMPLX(C0S(T£MPH*SINITEKP1> >) / 
l ( 4. * BE T AMN ) 

Z SET THE NUMBER OF Sd 8- I NTE R V AL S FOR WHICH THE 

C LAST TWO TERNS ARE EVALUATED 

m 

I OR3 CS « 2 
INTEGRL « (Q.,0.1 

A 

: SET NUMBER OSCILLATIONS 

nos: e « 1 

NOSCE « MA XO ( NO SCE *N ) 
nos:e ■ 1.5 ♦ NOSCE 
NOSCE * MA XO ( NO SC E * 2 ) 

WIDTHI « ( l.-ET AI/NOSCE 

I F 1 1 TP AC E .G£. 1) WR ITEI6. iOfeOI FACTCON. NOSC E 

C LOOP ON NUMBER OF SUBINTERVALS 

DO BOO ITRVL-1* NOSCE 
R LOW - ETA ♦ ( ITRVL-1 )*W I DT HI 
RUP * RLOW * WIDTHI 
270 CONT INUE 

C EVALUATE TERM TO BE AVERAGEO 

C 

C SET AVERAGE SPAN 

A VSP AN * (RLOW ♦ RUP I*. 5 
A V ( 1 I ■ AVSPAN 

c 

C SET K INDEX 

K - 2 
C 

C SET AVERAGE VALUES 

DO 40C I AV»3» 1 1 
: SET J INDEX 

W 

J • I AV 

I F ( I AV.E0.3I J * 2 

IF(I AV.EQ. 10)J*9*ARMI SC < 1 8»K J *1 

IF(I AV.EO. 11 J J » R* ARM I SCI 1 8»KI *Z 

I F ( J.EQ.4 ) GO TO 400 

I F ( J.E3.5 » SO T 0 <*0C 
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oc*r> nnnnn oo«» «»o<» ooo 


c 


SET K INDEX TO BE USED 


KU • K 


SET SPAN WHEN J»l 

NSPV « AR( 1» J.KUI 

AVERAGE VALUE IS INPUT 

IF< NSPM J 400 » 330.340 
330 AVI IAVI » ARl 2 , J.KJ ) 

GO TO 400 


INTERPOLATE FOR AVERAGE VALUE 

340 I PA* * 1 

CALL MTLUPI AVSP AN, AV t IAVI .l.NSPN.NSPN. 1, l PA, ARt 3. 1* XU) » AR I 3, J.KU ) ) 
400 CONT INUE 

I FI I TRACE .GE. II HR ITE I 6. 1070) RLOH.RUP » AVSPAN ,C2 .DCL.FMI, 
l FME»FNZ»AVI10)»AV< 11) 

CALCULATE THE AVERAGE FACTOR. FACTAV 

FACTAV « . C2*0CL 

I F ( I TRACE .GE. 1) HR ITE (6.1080) FACTAV 
T EH* 1 ■ SORT ( F Nt**2 -FMZ**2 I 
TEH»2 « SQ RT ( FM£«*2 -FMZ**2 ) 

TEMPI *0.25*(T£MP1.TEMP2) +*2 
TEMPI « SORT ( F MZ**2 ♦ TEMPI ) 

FACTAV « FACTAVAFMZ 

IF(I TRACE .GE. II HR ITE ( 6. 1090) TE MP1 . T E MP2. FAC T A V 

COSTHS « FMZ/TENPl 

SINTHS * SORT ( 1 . - C0STHS**2» 

T EM 3 2 « M*COSTHSZA VS-PAN ♦ C APKMN* S I NTHS 

FACTAV « FACTAV*TEMP2 

l F( I TRACE .GE. 1) HR ITE ( 6. UGO) FACTAV, TEMP2 


PERFORM GAJSSIAN INTEGRATION 

CALL GAUSS2UL0W.RUP. IOROGS , V ALU l NT. F AC T l N4» ARMl SC. 4AX0I M. MAX J, AR ) 
ACCUMULATE THE TERMS 
INT6GRL • INTEGRL ♦ F AC T A V* VA LUI NT 
ENO INTERVAL LOOP 

I F ( I trace.Gc.1) *r i r e i o, L.2C)Fio T Av,vALj;'.r.;''r=Gst 
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o r> o or>o 


603 CONTINUE 


APPLY FIRST TERM A NO STORE 

INTEGRL » FACTCONAINT EGRL 
AtPM AHN! N» 10FM) -INTEGRL 

IF(ITRa:E .GE. LI WRITE16.1130I INTEGRL 
END N AND N LOOPS 


700 CONTINUE 
SOO CONT INUE 
1000 CONTINUE 

SAVE THE EIGENVALUE DETERMINING PARAMETERS 

EGN3NOO ■ EGNSNO 
ETA] * ETA 
HOMO « MO I M 
NDIMO • NO I M 
RNOFSVO - RNOFSV 
SIGMRBO * SIGNR8 

RETJRN 

1005 FQR1AT(IH1//1 

1010 FORMAT! 1HI// HX»* OPTIONAL PRINTOUT FROM SUBROUTINE BBC A A * > 

1020 FORMAT! 1H0> 10X. ♦EIGENVALUE PARAMETERS GENE RATED* / 13 X . *NS BR B « ♦ » 
113.2X.AS 1GMA * A.F3.3.2X.ASIGNRB » ♦ , F6. 0 . 2X» AMS BT » *» F 10 . A /13X # 
2*RK « A.F10.A.2X.ARKSQQ * ♦ .F 10. 4 * 2X# ♦ AX I AIM » A.F10.A/13X. 

3*CMACH « A.F1Q.A.2X.AEGN8N0 * *»2X»F10.5.2X»ARN3FSV » A.F10.A/13X. 
4*ETA « ♦ » F 10. 5 ) 

1030 F OR MAT! IH0.10X.ATHE EIGENVALUES FROM PREVIOUS CALL TO SUBROUTINE B 
18CAA ♦/ . 1X»AARE REUSED FOR THIS CASE*» 

1QA0 FORMAT! 1H0. 10X, AM » A.IA.2X.AL « *» I A.2X. 

I *N$3 RB * ♦ » I 3. 2 X. ♦NOP N * A, IA ) 

1050 FORMATllH # l OX » AN • ♦ .( A. 2X.ARNUMN » ♦» F 1 0. A, 2X, ♦BE T AMN • A.F10.A/ 
1 20X» *C AP KMN » ♦»P10. A.2X. ♦CAPNMN ■ A.FIO.A) 

1060 FORM A T( 1 H » 10X # *FACTC ON » ♦ .2 E 1 2. A. IX, ♦NOSCE » *#UI 
1070 FORMAT! IH .10X.ARL0W « ♦, F9.V. 2X» ARUP • •» F9. A, 2 X, ♦ A VS P A N - A.F9.A 
1/11X.AC2 * *»F10.A»2X» * DC L * a.FIO.a/IIX. 

2*FMl « AF9 • A * 2 X » AFME ■ ♦ » F9 . A » 2X » AF NZ ■ *»F9.A/ 

3 1 IX# ♦ AV( 13 » • A.F9.A, 2X* *AV ! I l J • A.F9.AI 
1000 FORMATllH .10X.AFACTAV • A.2E12.A} 

1090 FORMATllH » 1 OX » AT EMP 1 * * . F 1 3 . A, 2 X. AT E MP 2 « ♦ . F l 0. A . 5X » ♦ F A C T AV » ♦ 
1 t 2E 12. A> 

1130 FORMATllH » 1 OX. AFACT A V « ♦, 2E l 2. A , 2 X, ATE MP2 • A.2E12.A) 

1120 FORMATllH .10X.AFACTAV « ♦ . 2 E l 2. A. 2X » *V AL U I NT **.2E12.A/ 

1 1 IX. ♦ INTEGRL «*2E12.a) 

1130 FORMAT! 1H » 1 OX » ♦! NTE GRL *A»2E12.A) 

ENO 



3.2 Secondary Special-Purpose Subprogram Descriptions 


3.2.1 Subroutine EGNVAL2 


Purpose: 


This subroutine computes the double subscripted array of 
hardwall , annular duct eigenvalues required by the modal 
representation of the acoustic pressure in such a duct. The 
first subscript is referred to as the spinning mode index, 
while the second is referred to as the radial mode index. 

For each member of a set of spinning mode indexes, m = m-^, 
mg,... , determined by the cutoff criterion (equation (1+) 

of appendix I , volume I ) , the eigenvalues are the ordered set 
of zeros of the transcendental function: 


F (x) » J m ' (x) - Y m * (x) 


J * (nx) 
m 

Y • (nx) 
m 


solved for by the subroutine ZEROS, i.e., 

x — y » n— 1, 2, ... 
mn 

with J and Y the Bessel and Neumann functions, respectively; 
m m 

the primes denoting differentiation with respect to the argu- 
ment; and n denoting the hub-to-tip ratio. 

Method: The procedure is as follows : 

l) Establish the spinning mode index having the largest 

absolute value, m , from the inequality (see equation 
max 

( U ) , appendix I , of volume I ) : 


m < y < E_, 

I max - m ,n - B 
max* 


where Eg is EGNBND (see the FORTRAN dictionary, sec. 2.2), 
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This inequality is satisfied by the integer which is 
less than or equal to the real number 

Restrict the above bound, m , to be at most 100 

max 

(based on the restriction on the Bessel function evalu- 
ation BSSLS, sec. 3.3.6). 



Calculate the smallest negative £, , according to 

lower 

the above bound, which is derived as follows: 


Since 


m * ON + £N 
K S 


m - aN„ 


N, 


< |m| + a N b 

nI 


then 


w - 


e b + oN r 
N„ 


and i. 


lower 


e b + oN r 

N„ 


Determine all m's according to the above equation 
defining m and within the bounds on m and l given above 
by starting with the lowest i and stepping through the 
£'s, calculating the m's, and storing those m’s within 
the established bounds. 

Set an error counter in the case that either the list 
of m's is not exhausted or no m's were obtained, con- 
tinuing only in the former case. 



Usage : 


6) Calculate an upper bound.* n , on the radial mode index 

* max’ 

n derived as follows. From reference 30* formula (9.5.31) 
(see also APR0X1, sec. 3.3.l)» the eigenvalues are ulti- 
mately spaced by ir/l-n. The bound used is 

n = (— )(m + 1) 

max \ tt / max 

7) Calculate the eigenvalues for the m's determined above 

and n = 1 to n for each m. 
max 

8) Restrict the eigenvalues according to the bound p < E„, 

ran B 

counting the number of eigenvalues within the bound, if 
any, for each m. 

9) Eliminate any m for which there are no eigenvalues less 

than the bound, updating the stored arrays of m's, n's, 

and p ' s . 
mn 

CALLING SEQUENCE 

DIMENSION MUSE(MDIM) ,MAXN(MDIM) ,ARUMN(NDIM,MDIM) 


CALL EGNVAL2 ( LZERO .EGNBND ,ETA ,MD3M ,NDIM ,RN0FSV ,SIGNRB , 
* ITRACE,NOFM,MUSE,MAXN,ARMUMN,IEREGNV) 


Error Return: IEREGNV 



Timing: 


Accuracy: 


The timing is dominated by the eigenvalue calculation, sub- 
routine ZEROS (sec. 3.2.3). According to sample runs, the 
time is 


2 x EGNBND x (l. - ETA) + 2 

See subroutine ZEROS for the accuracy of the eigenvalues. 
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STORE ffl, MAXIMUM n, 
AND CORRESPONDING 
EIGEN VALUES 

LUSErLUSE+1 
MUSE <LUSE)=MUSE <IM> 
MAXN (LUSE) * NOFN 
ARMUMN UOPN.LUSE) * 
ARMUMN (IOFN.IM), 
IOFN'1, NOFN 
















oim (i onrm n n tin n non or>ft r>r>no on no n no n on r> no oof) n tin 


S UBR OUT I NE EGN V AL 2( L Z ER3 . E GNBNO. £T A.MDl M.ND l M. R NOF S V* S 1 GNRB » 
1 ITR4C£*.NQFM*MJSE»NAXN*ARMUNN» IEREGNV) 


PURPOSE 


OBTAIN THE APPROPRIATE SPINNING AND RADIAL MOOES. 


INPUT VARIABLE DEFINITION 

EGNBND ALL EIGENVALUES ARE FOUND WHICH DO NOT EXCEED 
THIS NUMBER. 

ETA HUS TO TIP RATIO* WHICH IS ZERO FOR CIRCULAR 
DUCT 

MO I M COLUMN DIMENSION OF MATRIX IN WHICH EIGEN- 
VALUES ARE PLACED. PROVIDENG A MAXIMUM ON 
THE NUMBER OF SPINNING MOOES. 

NO I M ROW DIMENSION OF MATRIX IN WHICH EIGENVALUES 
ARE PL AC EO* PROVIDING A MAXlHJM O.N THE 
NUMB ER OF RADIAL EIGEN VALJES. 

RNOFSV NUMBER OF STATOR VANES 

SIGNRB PROOUCT OF HARMONIC INDEX. SIGMA. % 

AMD THE NUMBER OF ROTOR BLADES* NS 3RB 


OUTPUT 


ARMUMN MATRIX OF EIGENVALUES WHERE 

MUMNI 10FN. I OFN > 

IS THE EIGENVALUE FOR SPINNING MODE INDEX 
* IOFM ANO RADIAL MODE INDEX I OF N WHERE 

IQF N* 1 * . . . .MAXNI 1 OF !M > 

MAXN ARRAY OF THE NUMBER OF RADIAL MODES 

WHERE MAXNI IOFM) 

CORRESPONDS TO MUSEIIOFM)* I OF M - 1 * . . . * NOFM 
MUSE ARRAY OF THE NOFM SPINNING MODE INDICES 
NOFM NUMBER OF SPINNING MODE INDICES 


ERROR RETURN IEREGNV » 0 ALL EIGENVALUES RE OU I RE D ARE RETURNED 

2 THERE ARE MORE EIGENVALUES REQUIRED THAN 
THERE IS SPACE FOR* AS MANY AS POSSIBLE 
ARE RETURNED 

A THERE ARE NO EIGENVALUES 


DIMENSION MUSE I MO I M) . MAX N tMDl M> * ARMUMN! ND l M» MD I M > 
DIMENSION SCIA01 
DATA MBES/IOOV 


IEREGNV * 0 

SET THE MAXIMUM SPINNING MODE THAT CAN POSSIBLY PROPAGATE 
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(j o u u u < » u u mu> umiouo uou uuti 


MEG* « E GNBNO + 1 
HBESEGN * MINOl HEGN.MBES) 


NOV COMPUTE CANDIDATE spinning modes according to 


SET THE LOWEST L THAT IS USABLE 

L « -ASS I I EGNBND *S l GNR B> / RNOF S V ) 

LUSc * D 

210 IF! L ZERO .E0.1 .AND.L.EQ.O ) GO TO 225 
M « SIGNRB ♦L*RN0FSV 
IABSM * I A 8 S ( M ) 

I F ( IABSM - MBESEGN ) 22C.220.215 
215 IFIN) 22 5. 22 5. 2 60 
220 LUSE * LUSE ♦ 1 
MUSE I LUSE I * M 
225 l » L ♦ 1 

I F I LUSE - MO I M } 210.250.250 
250 I ERE GNV » 2 
260 NOFM * LUSE 

300 CONTINUE 

CHECK TO BE SURE THERE ARE SPINNING MODES 

I F < NCFM J 310. 310*320 
310 I ERE GNV« A 
GO TO 900 
320 CONT INUE 

OBTAIN THE EIGENVALUES 


SET BOUNOS FOR EIGENVALUE CALCULATION 

NBESEGN ■ Il.-ETAI*IM8ES*1. I/3.1A159265 ♦ l. 
NMAX - MINOI NBESEGN. NDIM-l) 


CALI ZEROS I ETA. NOFM, MUS £ , NM AX , ND IM, l TR AC E » SC , ARNUHN ) 

COMPUTE THE NUMBER OF RADIAL MODES FOR EACH SPINNING MOOE 

330 00 390 IM-l.NOFM 

M • MUSEUM) 

MP1 • lABS(M) ♦ l 
N » 1 

30 I F { ASMUMNIN.IM ) - E GNBNO » 35D. 350. 370 
3 50 N * ‘I *• l 
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r»o on non n n n o 


) 340# 340* 360 


l F( N - NH AX 
360 IEREGNV « 2 
370 NM1 » N - 1 

MAXUIM) « NH 1 
. I Ft NHL - NO I H I 390*390*330 
380 IEREGNV » 2 

MAXNtIM) * NOIH 
390 CONTINUE 

400 CONTINUE 

ELIMINATE SPINNING NODES FOR WHICH THERE ARE NO 
RADIAL MODES 

LUSE - D 

DO 49C I H* 1* NQF M 
NOFN * MAX N ( IH) 

I F ( NOFN I 490*490*410 
410 LUSE « LUSE ♦ t 

MUSEILUSE) - MUSEUM) 

HAXULUSE) - NOFN 
00 4 70 I OFN* 1# NOFN 

470 ARMJMNU OFN#LUSE) - A RMUMNI IOFN* I Ml 
490 CONTINUE 

NOFN * LUSE 

I F ( NOFN ) 500*500*1003 
500 IEREGNV « 4 

ERROR RETURN AT THIS POINT 

900 CONTINUE 


1000 RETURN 


END 


126 



3.2.2 Subroutine ZEROS 


Purpose: 


Method: 


This subroutine computes the first NMAX zeros , in increasing 
order starting with the lowest, of the function: 


F(x) 


J' ( x > 

m 


Y ' (X) 
m 


J’ (nx) 

V (nx> 
m 


for each m = , m 2 , . . . } . 

For m = 0, the first zero is x = 0; all other zeros are nonzero 
positive and equal to the zeros of the function: 

G(x) - j'(x)Y'(nx) - Y'(x)J , ( n x) 
mm mm 


with J m and Y m the Bessel and Neumann functions, respectively; 
the primes denoting differentiation with respect to the argu- 
ment; and n denoting the hub-to-tip ratio. The zeros of G(x) 
are computed for m = 0, 1, . MMAX, the largest input m in 
absolute value, using subroutine JARRATT (sec. 3.3.3) with 
selected iteration starting values. The zeros corresponding 
to {m^, mg,...} are saved as computed with zeros corresponding 
to m < 0 being the same as -m. 

The procedure is as follows: 

1) Set the tolerances and iteration limit for subroutine 
JARRATT (see sec. 3.3.3) used in steps 6 and 13 below. 

2) Set the largest |m) input, MMAX. 

3) Set the first zero of F(x) to zero when m = 0. 
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x y. 

1») Set the index of the 1 zero of F(x) for m = 0, i = 2, 

...» NMAX by a DO loop . 

5) For m = 0, calculate the three iteration starting values 
for the i^* 1 zero of F(x). The first starting value is 
computed by subroutine APR0X1 (sec. 3.3.1) for n > .2, 
and by subroutine APR0X2 (sec. 3.3.2) for n < .2. The 
second and third starting values are the first +.1 and 
-.1, respectively. 

6) Calculate the i zero of F(x) by solving equation G(x) * 0 
using subroutine JARRATT vith the values set in steps 1 
and 5. 

7 ) When m = 0 is input , save the zeros calculated in steps 
3 to 6 in an output array. 

8) Return if only m = 0 is input. 

9) Reset the first zero for m = 0 to 1 for use in step 12. 

10) Set the value of m, m = 1, 2, . MMAX by a DO loop. 

til 

11) Set the index of the i zero of F(x) for the m in step 
9 by a DO loop. 

12) Calculate the three iteration starting values for the i th 
zero of F(x). The first value is the i^* 1 zero for the 
previous m. For n > 0, the second and third starting values 
are the first -.1 and +.1; for n = 0, the values are the 
first +.1 and +.2. 

13) Calculate the i^* 1 zero of F(x) by solving the equation 
G(x) = 0 using subroutine JARRATT with the values set in 
steps 1 and 12. 
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14) When |m| , m set in step 10 is input, except for the zeros 
computed in steps 11 to 13 in an output array. 

Usage: CALLING SEQUENCE 

DIMENSION MUSE(MDIM),SC(40),ARMUMN(NDIM,MDIM) 


CALL ZEROS ( ETA ,N0FM .MUSE ,NMAX ,NDIM .ITRACE ,SC , ARMUMN ) 

Printout and The zero, the corresponding function value, the starting guess 
Diagnostics: (GUESS[l] ) , and the error return code IERJAR from subroutine 

JARRATT (see sec. 3*3*3) can be printed as calculated according 
to the input ITRACE (see the FORTRAN dictionary, sec. 2.2). 

Restrictions: MUSE(l) or MUSE(NOFM) must be the largest m in absolute value; 

NMAX < NDIM. 

8 

Timing: The timing is proportional to the nearest integer to 

2 ( EGNBND + l)(l - ETA) 

” 3.14 ~~~ 

times a unit call to subroutine JARRATT. 

Accuracy: The accuracy is of the algorithmic type and, in particular , 

is dominated by the Bessel function evaluators BSSLS (sec. 3. 3. 6 
and BF4F [ref. 4l]). The zeros are calculated by subroutine 
JARRATT with given starting values so that the cross product 
of Bessel functions (see subroutine EQATION) is less than 10~ 10 
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SUBROUTINE ZEROS (ETA. N3FH .HUS E . N MAX , NO I N, 1TRACE, SC. ARNUMNI 


PURPOSE CONFUTE THE ZEROS OP THE EQUATION 

JPIM, XJ*YPI M.ET A*X> - YP|M*X)*JPIN,ETA*X) 

WHERE JP AND YP ARE THE DERIVATIVES OF THE BESSEL 
FUNCTIONS OF THE FUST AND SECOND KINOS. RESPECTIVELY. 

OF OROER n ANO ARGUMENT X OR E T A * X . 

MfTHQC THE EQUATION IS TO BE SOLVED FOR THE FIRST M ZEROS 

FOR EACH OROER, THE ORDER M « 0 » 1 , 2 » . . . , MM A X. FOR THIS 
PURPOSE THE ZEROS FOR N * Q ARE FOUND BY FIRST APPLYING 
AN APPROXIMATION FORMULA THEN A REFINEMENT PROCEDURE 
USING BESSE FUNCTION EVALUATORS. THE ZEROS FOR HIGHER 
ORDERS ARE FOUNO BY STEPPING THROUGH ORDER USMG A 
NONLINEAR EQUATION SOLVER ANO BESSEL EVALUATORS ( AS THE 
REFINEMENT I WITH STARTING VALUES BEING THE ZEROS FOR 
THE PREVIOUS ORDER. 


t.. ;ROGRA MS JARRATT NONLINEAR EQUATION SOLVER 

APROX1 APPROXIMATION TO EQUATION FOR ETA AT LEAST .2 
« 

APR0X2 COMBINATION OF AP PROX I M AT I ON AND INTERPOLATION 
FOR ETA LESS THAN .2 

XTERNALS EQATION EVALUATES THE EQUATION 

DIMENSION GUESS ( 3 ) »AR MU.NN ( NDI M, 1 ) , SC I 1 > . MUSE ( 1) 

EXTERNAL EQATION 

THIS COMMON PASSES N AND ETA TO EQUATION EVALUATOR 
COMMON/CEQUAT/M.CETA 

E OUT I ON SOLVER TOLERANCES 

ITLIM.3D 
E PI* 0 . 

EP2*1.E-I0 

CETA * ETA 

MMAX * MAXOl I A8S(MUSE( 1 I). IABSI MUSE (NOFM)) > 

MPIMAX* MM AX* l 

SOLVE THE EQUATION FOR ORDER ZERO 

M*G 
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suESsm * scuofni 

Guess(2)»cuess< i)-.i 

IFIETA.EO.O. ) GUESS! 2 )»GUESSt l > + .2 
CUES SO) *GUESS ( l)*.l 

CALL JARRATTC5UESS#ITLIH*EP1* fcP2,EQATIQN, ZERO# F T » l E R JAR ) 
IF( I TRACE .EO. 2) WRirE(6#20> 2ERO#FT#&UES$U>» IE* JAR 

SC 1 1 QFNI « ZERO 
500 CONTINUE 

00 5 AC I0FM»1»N0FH 
MS<WE* I AB S ( MUSE I I0FM) ) 

( FJM-MSAVE ) 5A0* 5lO> 5 AO 
t.-J.O 00 530 I0FN-1.NMAX 
fe'O A R M J M N ( I OF N # IOFM ) « SC(IOFN) 

5A0 CONT INUE 

OCO CONTINUE 

TOO. RETURN 
ENO 



3.2.3 Function EQATION 


Purpose : 


Method: 


Usage: 


This function evaluates the cross-product expression: 

J'(x) Y'(nx) - Y*(x) J’(nx) 
n m mm 

with the prime denoting differentiation with respect to the 
argument. and Y^ denote , respectively, the Bessel and 
Neumann functions of integer order and real argument. The 
hub-to-tip ratio is given by rj. 

The procedure is as follows: 

1) Evaluate J'^x) using the recursion relationship (ref. 30) 


2 ) 

3) 

4 ) 


J'(x) = - J (x) + 2. J (x) 
m m+1 x m 


If r) = 0, the cross product is J'(x). 

m 


Evaluate Y'(x), J’(nx), and Y’(rpc), using the recursion 
mm m 

relationship for the derivatives, as referenced above. 


Evaluate the cross product. 


CALLING SEQUENCE 

common/ceqat/m ,eta 
COMMON/ SCRATCH/BES(1000 ) 


CRSPRD * EQATION (X) 
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Restrictions : 


Timing: 


Accuracy : 


3X + M + 12 < 1000 (see BSSLS) 

M > 0 

o < n < l 

The timing is dominated by the Bessel function evaluation and 
is approximately equal to twice the sum of the unit time for 
a call to BFl+F (ref. ^1) and BSSLS (sec. 3.3.6). 

The accuracy is of the algorithmic type and, in particular, 
is dominated by subroutines BFUF and BSSLS. 
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3 : 





















FUNCTION EQATIONIXl 


-PURPOSE EVALUATE T HE FOLLOWING EQUATION USING BESSEL 

C FUNCTION EVALUATORS 


JP (H» X )*YPIM»ETA*XJ - YP(M»X)*JP{ M#E T A*X) 


WHERE JP ANO TP ARE THE DERIVATIVES OF THE BESSEL 
FUNCTIONS OF FIRST AND SECOND KIND* RESPECTIVELY# 
FOR INTEGER ORDER N AND REAL ARGUMENT X ANO E TA*X » 
ETA A GIVEN PARAMETER. 


flPL'T 


VARIABLE DEFINITION 

X REAL ARGUMENT X 

M INTEGER GROER H» OBTAINED FROM COMMON 

ETA PARAMETER ETA# OBTAINED FROM COMMON 


.'NOTATION 


VARIABLE DEFINITION 
FNFP YP<M#ETA*X) 

FJFP J PI H » ET A* XI 

FJP J PI M # X ) 

FNP Y PI M > XI 


if-RCGRAMS LRC LIBRARY ROUTINES BSSLS AND BF4F THAT EVALUATE 

BESSEL FUNCTIONS OF FIRST AND SECOND .< I NO # RESPECTIVELY. 

■".RESTRICT! ONS 3*X ♦ M ♦ 12 CAN 8E AT MOST 1000 

C0M10N/CEGUAT/M.ETA 
COMM ON/S CRATCH/ BE SI 1000) 

DATA IS I GN /- 1 / 

MP 1* M*1 
MP2*M*2 

CALL BSSLS(X,BES#MP1. 1ERR) 

A1-36SIMPI ) 

A2*3ESIMP2 > 

FJP*-A2MM/XI*Al 

/ 

IFIETA.NE.O. ) GO TO 10 
EQAT ION * FJP 
GO TO 30 
C 

10 CALL 8F^F(X»3ES»MP1» IERR#ISIGN) 

A3* BESIMP1) 

A<»* 3 E 5 I “P2) 

FNP* *4 *♦ ♦ ( M/ X i * A 3 

V 

Y * X*ETA 

CALL BSSLSI Y#B£S#MPl# IERR ) 
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NP1- 1 
RM*H 

SC(l ) « 0. 

TRACE FORMATS 

IFUTRACE.E3 .2) WRITE <6, 5 )E TA 

5 FORI A T ( 1H1,*TRACE THE CALCULATION FOR THE ZEROS OF THE ANNULAR 
l EI3ENFUNCTI0N*/1H0,2 X, *THE RATIO OF THE INNER TO OJTER RADIUS IS* 
2# F ID . 5 ) 

IFU TRACE. £3.2) WR I T E <b. 1 0) M 

10 FORI AT ( 1 HO » * THE OROER M « *, I A/ I HO, 18X , * ZERO*, 8X»*FUNCTI0N VALUE 
l*, 8X,*START ING GUES S ♦. 2X ,* CONVER GE* > 

IFU TRACE. EQ. 21 WRITE (6, 15) 

15 FORMAT ( IH , *0. * * C>3X, * SET * ) 

FIND THE N-TH ZERO 8Y APPLYING THE APPROXIMATION 
FORMULA THEN THE REFINEMENT PROCEDURE 

DO 50 !0FN*2»NNAX 
NTHZERO « I OF N - 1 

IFIETA .GE. . 2 ) CALL APROX 1( RM» NTHZ ERO, E T A, Z ER3 ) 

IFIETA .LT. .2) CALL AP R0X2 { RM, NTHZERO* E T A, Z ERO ) 

GUESSCl) - ZERO 
GUES S ( 2 ) « ZERO ♦ .1 
GUESS <31 *. ZERO - .1 

CALL JARR ATT (GUESS. IT LIM> EP1, EP 2. EOAT I ON , Z ERO. F T . IE RJAR) 

IFUTFACE .EO. 2) WR ITE ( 6. 2D ) ZERO. FT, GUE SS « I ). I ER J AR 
SCUOFNI * ZERO 
20 FORMATUH ,3E22.lA,lo) 

50 CONT INUE 


DO 2 AC I OF M* l» NOFM 
MSAVE* l A9 S I MUSE ( I OF M) ) 
IF(M-MSAVE) ZAO, 210, 2 AO 
210 00 23C l QFN* l* NMAX 
230 ARMJMMl QFN, IOFM ) » SC(IOFN) 
ZAO CONT I NUE 

sen) « i. 


c 


IFC MMAX.EQ.O » GO TO 700 

NOW STEP THROUGH THE ORDERS 


00 bOC M«1,MMAX 
R M*1 

IFU TRAC E . EQ. 2 ) WR IT E (t>, 1 0> H 
M P l * *1 ♦ l 

FIND ThE N-TH ZERO 3Y ITERATION 
DO 500 I OF N* l.NMAX 
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Di - BES(MPl) 

02 « BESIHP2) 

FJFP * -02 ♦ <«/r)*Dl 

CALL BF4F (r,B£$,MPl» IERR#ISi GN> 

03 - 6ES < M P 1 » 

04 » 8ES ( HP2 ) 

FNF? * -04 ( M/r)*03 


EGAT 10N*FJFP*FNP - FJP*FNFP 

0 RETJRN 
E NO 


3.2.4 Function UNEGNFN 


Purpose: 


Method: 


This function subprogram computes the m^ order (m an integer) 
unnormalized radial eigenfunction for a hardwalled annular 

duct of hub-to-tip ratio, n, when the argument is u p, where 

th th 11111 

U is the n hardwall eigenvalue of an m order duct mode 
mn 

and p is the polar radial coordinate nondimensionalized on 
the duct outer radius : 



where J and Y are the Bessel and Neumann functions, respec- 
m m jx- 

tively; the primes denote differentiation with respect to the 
argument; and n indicates the hub-to-tip ratio. 


The procedure is as follows : 


1) Set working m to absolute value of input m. 

2) Test for y =0, and, when true, set Ri i(u p) - 1 

mn * * ’ |m| mn 

( for all p ) . 

3) Evaluate Ji j (lip) . 

I m | mn 

4) Evaluate Ji i'(u n), Y, , , (y n), and Yi i(u n) using 

| m | mn | m | mn | m [ mn 

the recurrence relations (formula [9.1.27] of ref. 30). 


5) Evaluate R. ( (up). 

m mn 


6) Set R (up) = (-1)“ R. | (mo). 
m mn |m| mn 
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Usage : 


CALLING SEQUENCE 


COMMON /SCRATCH/BES ( 1000 ) 


CAPRMN=UNEGNFN ( M , RMUMN , ETA , S ) 

Restrictions: 3 11 + 12 + I ml < 1000; see subroutines BSSLS (sec. 3.3.6) and 

mn = 

BFUF (ref. 1+1) 

S > 0 

Timing: The timing is dominated by the Bessel function evaluators BSSLS 

and BFl+F. It is, therefore, approximately equal to the sum of 
two unit calls to each. 

Accuracy: The accuracy is of the algorithmic type and is dominated by that 

of either BSSLS or BFl+F. 
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CALLING LIST 
M, RMUMN,ETA,S 



3 





























f un; t i os unegnfnim>rmumn. et a. si 


CPURPOSE COMPUTE THE UNNQRMALIZED ANNULAR EIGEN FUNCTION 


RMN(MUMN*S> « JM(MJMN*S 1 - 
JMPIETAMMJMN>*YM(MJMN*S)/YM?1ETA*MUMN> 


WHERE S IS BETWEEN D AND 1 

MUMN IS THE N-TH EIGENVALUE QF THE ANNULAR EIGEN- 
VALUE EQUATION OBTAINED BY DIFFERENTIATING THE 
ABOVE EQUATION 

ETA IS THE RATIO OF THE INNER TO OUTER RADIUS OF 
THE ANNULUS 

JN AND YM ARE THE BESSEL FUNCTIONS OF THE FIRST AND 
SECOND KINDS CF INTEGER ORDER 1 
JMP AND YMP ARE THE DERIVATIVES OF JM AND YM 


: INPUT 


V ARl ABLE 
M 

RMUMN 


eta 

s 


D E F IN IT 1 ON 

INTEGER ORDER CF BESSEL FUNCTION 

N-THE EIGENVALUE OF ANNULAR EIGENVALUE EQUATION* 
JMP(X) - JMP(£TA*X)*YMP( X I / Y MP ( E TA*< ) 

MUMN A3 3 V E 

RATIO CF INNER TO OUTER ANNULAR RADII 
ARGUMENT BETWEEN 2 AND 1* IN GENERAL RMN IS ONLY 
MEANINGFUL FOR S GREATER Than OR EQUAL TO ETA 


OUTPUT UNEGNFN 


THE VALUE OF RMN(MUMN*SI 


GSUBPRCGRAMS 3 SSLS 
G 3FAF 


EVALUATES JM FROM LRC LIBRARY 
EVALUATES YM FROM LRC L I 3 R A R Y 


; RESTS I CTt ON 3 * R M J M N + M ♦12 CAN BE AT MOST 1C 2 G (SEEARRAY 9J) 
ETA BETWEEN 0 A ND i 

S BETWEEN 0 AND 1* GENERALLY AT LEAST ETA 


COMMON /$CRATCH/BES(1022) 

OATft ISIGN/-1/ 

COMPUTE 3ESSEL RELATED FUNCTIONS WITH POSITIVE ORDER AND 
SWITCH SIGN FOR 00 G NEGATIVE ORDER 
I A3SM ■ 1 A 3 S ( H ) 

I FIR HUMS ) 102# 10.22 

USE LIMITING VALUE F0» S MUMN *0 WHERE MO 
12 1 f I l ASS' 4 . E 2. 2 ) JNEGNFx * 1. 



M P 1 « I A 3 S M ♦ 1 
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* » »> o 


MP2 » MPH-1 
ARGETA * E T A*R MUMN 
ARCS * S*RMUMN 


COMPUTE JM( MUMN* S) 

CALL 8SSLS (ARGS»BES» I A8SM*IERR) 

T 2 « 8ES (MPl ) 

UNEGNFN * T 2 
1F(STA.E0.0. ) GO TO 90 

COMPUTE YMP ( ET A*MUMN t 

CALL BF4FI ARGETA* 8ES* MP 1 * I E RR * ISI GN ) 

T 1 « -BE S < MP2 ) ♦ { IA8SM/ARGET A)*8ES(MPl » 

COMPUTE JMP ( ET A*MUHM » 

CALL B$SLS<ARGETA,BES,MP1»IERR> 

T 3 * -8ES(MP2» ♦ ( IA8SM/ARGET A ) *8 ES (MPl) 

COMPUTE YH(MUMN*S) 

CALL 6F4FI ARGS»B£S*IABSM, I ERR* ISIGNI 
T A * BES (MPl ) 

UNEGNFN *‘UNEGNFN - T 3*T<» /T 1 
90 CONTINUE 

IF1 M.LT.O .AND. MOD ( M» 2 ) .NE. G ) UNEGNFN • 

ICO RETJRN 
END 


-UNEGNFN 
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3.2.5 Function EGNNORM 


Purpose: 


Method: 


Usage : 


Timing: 


Accuracy: 


This function computes the normalization factor for the hard- 

wall duct radial eigenfunction R (p p) (see description of 

m mn 

UNEGNFN ) : 

1 

n - [ i (i - 4 y ( v \. i (V- 4 V6- "'ll 2 

mn I 2 y 2 J m y mn J 2 V 2 J m I mn J 

for m ^ 0 and m = 0, n f 0 and 

The procedure is as follows: 

1) Set N when p =0. 

oo mn 

2 

2) Compute the ratio (m/p ) . 

mn 

3) Evaluate R (p } and R (p n) where R (p n) is set to 

m mn m mn m mn 

zero when n = U. 

k) Evaluate N 

mn 

CALLING SEQUENCE 

CAPNMN=EGNNORM ( M , RMUMN , ETA ) 

The timing is dominated by function UNEGNFN (sec. 3.2.1*), 
approximately equal to two unit calls to that function. 

Tne accuracy is of the algorithmic type, and, in particular, 

-t is dominated by function UNEGNFN. 
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function egnnormi m.rmumn, et ai 


COMPUTE THE NORMALIZATION FACTOR TO THE ANNULAR EIGEN- 
FUNCTION 

NMN**2 * . 5* I ll.-M**2/MUMN**2)*RMN( MUMN ) **2 

- (ETA**2-M**2/MUMN+*2)*RMNI ETA*MUMN)**2 » 

WHERE RMN IS THE UNNORMAL I ZED ANNULAR EIGEN FUNCTION 
M IS BESSEL FUNCTION ORDER FOR RNN 
HUHN IS ANNULAR EIGENVALUE 

ETA IS RATIO INNER TO OUTER ANNULAR DUCT RADII 

> Nr UT VARIABLE DEFINITION 

M BESSEL FUNCTION ORDER 
MUMN ANNULAR EIGENVALUE 

ETA RATIO INNER TQ OUTER ANNULAR DUCT RAOII 

' fi'JTPUT EGNNORM VALUE OF NNN 

SUBPROGRAMS UNEGNFN EVALUATES UNNORMALIZED ANNULAR E I GEN FUNCTION 

r'RICTIONS SEE FUNCTION UNEGNFN 


I FIR MUMN *) 10D. 10,20 

USE LIMITING VALUE FOR RMUMN-0 WHERE M*0 

10 IF! M.EQ.O ) EGNNORM * SORT! . 5*C 1 .-ETA**2 I » 

GO TO 100 
20 CONTINUE 

RATI 0 - ( M /RMUMN I **2 

CAPRONE *UNEGNFN(M,RMUMN,ETA,1. > 

CAPRETA *0. 

IFIETA.NE.O. >C A PRETA* UNEGNFN! M»RMUMN»ETA,ETA) 

EGNNORM* .5*1 ( 1 . -RA T 10) *CA PR ONE **Z - (ETA**2~R4T13)*CA?RETA**2 ) 
EGNNORM* SORT! EGNNORM I 

130 RETJRN 
END 
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3.2.6 Function FACTINT 


Purpose: 


Method: 


This function evaluates the oscillatory factor in the integral 
expression for the modal amplitudes for primary subroutine 
AAAAA: 




m 




d siro|> 
P cosip 


for the inlet stator- rotor , and 


iaN 0^.- 
e R ° S «m 



loN s 

e 


d sin<p 

p COSlf) 


for the rotor-outlet stator (see equation [36], appendix I, of 
volume I ) . 

The procedure is as follows : 

1) Evaluate the normalized duct radial eigenfunction. 

2) Compute the first exponential term. 

3) Compute M and M from input or spanvise interpolation 

Z In 

and the flow angle, 

U) Compute the second exponential factor. 

5) Evaluate the oscillatory factor. 
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Usage : 


CALLING SEQUENCE 


Restrictions 

Timing: 

Accuracy : 


COMPLEX FACT I NT ,FACTRPD 

COMMON /CFACT/M ,N ,RMUMN , CAPNMN , ETA, SIGN ,L,CAPKMN 
COMMON /CFACTIR/NSBIR ,SIGOL,PHISBIR 


FACTRPD = FACTINT (RHO) 

ETA < RHO < 1 

The timing is dominated by the eigenfunction evaluation, which 
is approximately equal to a unit call to the function UNEGNFN 
(see sec. 3.2.U ) . 

The accuracy is of the algorithmic type and, in particular*, is 
dominated by UNEGNFN. 
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COMPLEX FUNCTION FACT IN T ( RH0» ARM I SC 1 MAXOIH 1 MAXJ 1 AR) 


EVALUATE THE INTECRANO FACTINT TO 8E CALLED BY THE 
INTEGRATOR GAUSS2 IN PRIMARY SUBROUTINE AA AAA 

CFACT 

CFACTIR 

UNEGNFN 


DIMENSION AR(MAXDIM»MAXJj>3) i ARM I SCI I) 

COMPLEX EXPFACT iCT EMP 2 

COMM ON/C FACT/ Mi NiR MUMN. CA PNHNi E T A# S I GN » L »C APKNN 
COMMON/CFACTH/NSBIRi SIGQLiPHISBIR 

EVALUATE NORMALIZED EIGENFUNCTION 

SCPTRMN « UNEGNFNC MiRMUMNiET4iRH0)/CAPNMN 

EVALUATE FIRST EXPONENTIAL TR I GNOMETR I C FACTDR 

ARGEXP2 « SIGN+SIG0L*NSBIR*PHIS6IR*IRH0-ETA»/( I.-ETA) 
EXPFACT • CMPLXI COS I ARGE XP 2) i S I N IARGEXP 2 ) > 

EVALUATE NEXT EXPONENTIAL TRIGNOMETRIC FACTOR 

COMPUTE FMZ AND FM IE 

I SOI OS » ARM ISC I 5 J 
J * 9 

K « I SQR OS ♦ 1 
NSPN • AR I IiJiK) 

IFINSPN ) AO i 30 i AO 
30 FMZ - ARI2#J»K) 

GO TO 50 
AO I PA « -1 

CALL MTLUPIRHOiFMZiliNSPNiNSPNiiilPAiARI 3i li K ) i 4 R I 3 i J>K ) ) 

53 J « 8 

K « I SOROS 
NSPN * A R ( IiJiK) 

IFINSPN) 7Gi 60 » 70 
60 FM1E * AR(2iJiK> 

GO TO 30 
70 IPA * -i 

CALL MTLUP(RH0iFMIEi1iNSPN»NSPNi1iIPAiARI3»IiK)i ARI 3#J»K J » 


C PURPOSE 

/■ 

*» 

r> 

Z COMMON 

: B L DC < s 

#*• 

C SUBPROGRAMS 
C CALLEO 


C 

80 CQSPSI 


EVALUATE THE FACTOR 
FMZ/FMIE 
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S IN* S ! « SORT! l.-C0SPSI**2» 

DSP4C - ARM! SC ( ISOROS ) 

TEN* 1 • S I G3L*N SBlR*OSPAC *S IN PS I / ( RHQ*CQSPSI I 
CTEMP2 » CMPLXI COS ( T ENP 1 ) » SI N I TEMP 1) ) 

COMBINE TO FORM FACTINT 

FACT I NT « £XPFACT*SCPTRMN*CTEMP2 

RETJRN 

END 
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3.2.7 Function FACTIN2 


Purpose: 


Method: 


This function computes the oscillatory factor in the integral 
expression for the modal amplitudes of primary subroutine 
AABAA: 


M M,Kl (p)r K2 (p)a K,Kl (p)H »c,Kl (p) 


ld K,Kl (p) . 

e K <,K1 (P) 


(“T + <P> / 2,T ) (^mn 0 ) 


(See equation [47], appendix I, of volume I.) 

The procedure is as follows: 

1) Initialize the component index to Kl. 

2) Initialize the table lookup position index. 

3) Determine the value of the inlet, exit, and axial Mach 
numbers and the chord at the given span position by using 
the input average values, or by interpolating on the input 
tables of spanvise values . 

4) Compute K1 (p) and 0 k1 (p)* 

5) Repeat steps 2, 3, and 4 for component index K2. 

6) Compute the Glauert coefficients for component K2 using 
the procedure described in step 3. 

7) Compute r° K2 (p) and 
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Usage : 


8) Compute the Bessel function argument h^Cp). 

9) Compute p) for index n = 1, up to the number of 
Glauert coefficients which were input . 

10) Compute the Bessel function for zero and the n's 

in step 9. 


11 ) Compute H 0 (p) by summation. 

K 

-id (p) 

12) Compute d ^.-(p) and e < * 

K 

13) Compute y end * and the corresponding value of the lift 
function. 

lU) Compute the factor 

15) Compute the normalized duct radial eigenfunction. 

16) Compute the oscillatory factor. 

CALLING SEQUENCE 

COMPLEX FACTIN2 ,FACTRPD 

DIMENSION AR(MAXDIM,MAXJ,3) ,ARMISC(2l) 

COMMON /SCRATCH/BES ( 1000 ) 

COMMON / CFACT2/B ,CAPKMN , CAPNMN ,C3 , 

* C7 , C8 ,C9 , Cll , C12 , C13 1 ClU ,K1 ,K2 ,L ,M,N ,NK2 ,RMUMN ,SIG0L 



FACTRPD = FACTIN2(RH0,ARMISC,MAXDIM,MAXJ,AR) 
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Restrictions : 


Timing: 


Accuracy: 


ETA < RHO < 1 
3 < ARMISC (18 + K2) < 15 

The timing is dominated by the interpolation, Bessel function 
evaluation, and lift function evaluation and is approximately 
equal to five unit calls to subroutine MTLUP (see ref. h2) 
plus one unit call to subroutine ROCABES (see sec. 3.3.11) and 
one unit call to subroutine LIFTFN2 (see sec. 3.2.10). 

The accuracy is of the algorithmic type and, in particular, it 
is dominated by ROCABES. 
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COMPLEX FUNCTION f AC T I N2 ( RHO , AR M I SC , MAXD IN , M AX J, AR ) 

PEAL MSBEI3>.MSSII3)»MSBK(3),MSSZ<3) 

COMPLE X C APHRHG, CO ML I F T , C TE MP I ,C T E MP 2, HRHQ . L AM 04 » L I F T , T E RM I 1 5 I 
COMPLEX CAPKRHG, EXPO RHO 

DIMENSION AP(MaxD 1M. MAXJ, 3 I, ASM I SC < 1 I,6JHR I 2 50 ) * 3 J H I (25C),CAPAH5) 
DIMENSION CHORD ( 3) ,OCS«L( 3 ), GNPHDI 15 I, YREI 20 », Yl Ml 30 J , THETA 13 I 
COMMON / SCRATCH /3ES ( IOC 2 I 

COMMON /CF AC T2/B.C APXMN.C APNMN.C3, Cb,C7,C8, C9,C11»C12»C13,C1A,XI, 

1 K2»L»M»N»NK2,RMUMN» S IGOL 

EQUIVALENCE I BJHRU )»3ESl l II , (B JH It 1) , BES 12 51 H 
K I * K 1 
10 IP * -1 

IF I AR ( l* 7»K I I .GT. 0.) GO TO 20 
MS B 1 1 X I I = A R I 2, 7, X I I 
GO TO AO 

20 NPTS = AR( 1,7,KII 

CALL MTLUP(P.HO»MSBHX I )» 1 ,NPTS»NPTS, WIP»AR( 3,1»<I I , ARC 3,7#Kl I) 

AO IF ( AR ( 1 » 3, X l l .GT. 0.1 GO TO 50 
MS B E ( K I ) = AP.( 2, 3 »K I ) 

GO TO 70 

CO NPTS * AC ( I, 8. KI ) 

CALL M.TLUP I RHQ » MSBE ( XI I . 1 . NP TS. NP T S » 1. I P . A ft l 3. 1. X 1) . AR I 3. 3 .K I ) ) 

TO IF ( AR ( l ,<?.K I ) .GT. 0.) GO TO 30 
MS 3 Z l X 1) = A R ( 2 .7 . X I I 
GO TO 100 
NP T S * ARj l.Q.KI I 

CALL MTLUPIRHO.MSBZIKl I . I . NP TS . NP T S . 1. I P . A R I 3. 1. K I ) , AR { 3.9 >KI ) I 
’.GO IF ( AR I 1,2, XI I .GT. 0.1 GO TO 110 
CHORD l <I) * AR (2.2.X I ) 

GO TO 130 

lio NPTS * API 1,2. XI) 

CALL MTLUP(RHO,CHORO(K I I, 1, NPTS, NPTS, 1, IP, AR ( 3,1 ,K I ) , AR (3, 2,X I I) 
130 I c ( MS B I I X I ) .LT. M SB Z I X I I I TEMPI » C. 

IF ( MS 8 1 1 X I I . G t . MSBZ(XII) TEMPI « S OR T( MS B I( < I I * *Z 

1 - MS BZ (XI I * ♦ 2 I 

IF(MSBEIKI) .LT. M S 3 Z ( X I I I TE MP 2 » 0. 

IF ( MS B £ < X I ) .GE. MSB Z ( X I I ) TE MP 2 * SORT ( MS BE I < I ) * *2 

1 - MSBZIXI ) * *2 I 

TEMP3 = TEMPI ♦ TE MP 2 
TEMPa = I T EM P3** 2 I / A . ♦ MSBZ IKI 1**2 
HSBPIKI) = SORT! TEMPA) 

TEMPI = ACGSI MSBZIXI I/MSBMIKI I I 
THETAIXI) = ABSITEMRl) 

IF(XI .EC. X 2 1 GO TO 1A0 

XI = X 2 
CO TO 1C 

1 AO MAXINO = ARM l SC I X2 ♦ l 8 I 

00 170 I'.0 I 1,'*AXI\J 

1 ~ l . • . . » 0 . .. IG TO I >C 

L A P A I IN.. J - A m i / 1 1 0* x -.X2) 

GO TO 170 

150 NPTS * A=C l, INOO,*2) 
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CALL HTLUP (RHO/CAPAI J NO » , 1, NP T S » NPTS » 1 , I P, AR ( 3# 1 * K2 ) , 
l ARI 3/ IND*9,K2 ) > 

170 CONTINUE 

G AMM A * 3. 1A 15926535393ACHORO<K21*MSBM(K2)*(CAPA( 1) ♦ CAPAI2II 
TEMPI * C6*( CHOROUi )/ ( 2.*fH0) )*N<2 
TEMP2 * -C7*SIG0L*< B/RHO »*NK2 
TEMP3 * E X P I TEMP2) 

ARH3 « TEMP1*TEMP3 

TEMPI * IC12*S1G0L*:H0R0(K2)*NK2I / I2.*RH0) 

TEMP2 • C13+I 1. 57079o326795 C 1 A *THET A l K 2 > ) 

CTEMPl - CMPLX ( 0./TEMP2) 

MRH3 * TEMP1*CEXP<CT£MP1) 

TEMP 1 « CAPAUJ ♦ CAPAI2) 

C APA ( MAX I N0> 1 1 - 0. 

C APA ( FAX I ND+ 2 ) * 0. 

DO 18C l NO * 1 » M A X I NO 

.GO GNRHOUND) * ( C AP A ( I N D«-2 I - CAPAIINDJI / TEMPI 
HRHJR * REAL(HRHO) 

HRH3I - AIMAG(HRHO) 

CALL ROC ABES (HRHOR/HRHOl »0. »MAXIN0»3JHR/ B JHI * YRE >YI M J 
CAP3RH0 « CM PL X IB J HR I 1 ) * 8 JH 11 1)> 

DO 19C I * 1 » MAX I NO 

190 TERM(I) « (CMPLX(0.#C 111**1 ) * GNRHGI IJ*CMPLX(BJHR(I+i)/3JHI ( l ♦ l )) 
DO 20C I * 1 * MAX I NO 
' CC. CAPHRHO * C4PHRHQ ♦ TERM! II 
TEMP L * C 8 *THE T A ( K 1 ) 

TEMP2 « C 9*S I GQL*NK2 

TEMP3 * < B/RHO )*TAN (THETA (< 1)1 

TEM>A * (ARMISC I 7 I *C HQRD ( K2 )) / (2.*MSBM(K2)) 

0RH3 » TEMPI ♦ TEMP 2 *( T E ,MP 3 ♦ TEMPA) 

CTEMPl « CMPLX(0.»~0RH0| 

EXP3RH0 * C EXP ( CTEMP 1 I 

RNURAPA * (ARMI SC (7}*N.<2*CH0R0(i<l)*S!G0L ) f ( MSB M ( < 1 ) *2 . ) 

R NU< APA « C6*RNUKAPA 

TEMPI « C3*« 1. 570796326795 - THETAlKiH 
CTEMPl * CMPLXI 0./TEMP1I 
CTEMP2 * CEXP( C TEMPI ) 

T EMP 2 « C6*S IGQL*( NK2/ ( 2.ARH0) )*CHCRDIKl) 

LAMJA * TEMP2*CTE.MP2 

CALL LlFTFN2(SNUKAPA*LAMDA,lI FT/CONLIFTI 
CAPXRHO > LIFT 

sinths * sinithetaiki n 

C0STH5 - C0SITHETAK1 II 
IN0X2 » ARMISCI5J ♦ A RMI SCI 13 ) 

IFIINDX2 . E 0 . 1 .OR. IN0X2 .EO. 2 ) 221/222 

221 T EMP 3 « ( M*C OS T HS I / RHO 

r : 0 ra 22 3 

ill r c : m -> 3 = - ( m*c 3S r.-s ) / . v: 

223 TEMPA * TEMP3 ♦ C AP K MM* S IN TH S 

IFUR(l»6*Kl> .GT. 0.) GO TO 22 A 
DCS3L I K 1 ) * AR ( 2 • 6# < 1 ) 

GO TO 225 
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22<r NPTS * ARI 1.6, Kl) 

IP • -l 

CALL PTLUPIRHO# DCSBLC Kl > , l.NPTS.NPTS.l. IP.ARI3.1.KI l»AR< 3.6.K1U 
225 TEMP4 * I DCS8L 1X11/6.23313531,71796 ) ♦ TEHP4 

SCPTRMN « UNEON FN( H# R MJMN » ARfl ISC t 3) » RHO) / CAPSiN 

F ACT I N2 »MS3M( K 1) *GA MFA* ARH 0*C APHRHQ*E XP 0RHQ*C A? KRH LJ*T P 4 *S CPTR MN 
I Fl4 RM5C 1 6) .EO. 30 rfkITEl 6.230 RHO. M S S Ml K 1 ) . GA iMA . 4RH0. 

1 CAPHRHO. EXPORHQ.CAP K RHO. T6 M P<»» SCPTIMN.FACTI N2 

2 20 FORI ATI 1H . F 7. <» . F6 .3 . 2( 1 X . E 9. 2 > . 3 < 1X» 2 E9 . 2 ) . 2 (1 < # E ? . 2 ) . 1 X, 2E 10. 3 I 
RETJRN 
END 
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3.2.8 


Function FACTIN3 


Purpose: 


Method: 


This function evaluates the interval of the oscillatory factor 

called hy subroutine GAUSS2 in the primary subroutine BBCM. 

The procedure is as follows : 

1) Evaluate the normalized eigenfunction. 

2) Initialize the distortion coefficient to zero. 

3) If the distortion coefficient index l is zero, proceed 
to step 16. 

k) If the cone model is not being used, proceed to step 8. 

5) Calculate D = (1- V^V^/iA 2 - l) , 6^ 0 and 6^^ + 6^. 

6) Evaluate the integral part by dividing the interval into 
two equispaced subintervals , integrating on each subinterval 
with an eight-point Gaussian formula, and summing the 
integrals . 

7) Compute V £ (p) and W^(p) in cone ®odel and proceed to 
step l6. 

8) If the power model is not being used, proceed to step 12. 

9) If the average value of is input, use it and proceed 
to step 11. 

10} Compute an average value of a^. 

11) Compute W^(p) in the power model and proceed to step 16. 
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Usage: 


Timing: 


Accuracy : 


12) If the distortion coefficients are not input, proceed to 
step 16 . 

13) Determine if the distortion coefficient index \l\ corre- 
sponds to an input value. If it does not, proceed to 
step l6; if it does, determine which index. 

lM Compute the distortion sine and cosine coefficients for 
the present index, depending upon whether average or 
spanwise data is input. 

15) For l < 0, conjugate the coefficient. 

16) Compute the integrand as the product of the eigenfunction 
and the computed distortion coefficient. 

CALLING SEQUENCE 

COMPLEX FACT IN 3 ,VFACTIN 

COMMON /CFACT/M,N ,RMUMN ,CAPNMN , ETA, SIGN, L.CAPKMN 
DIMENSION ARMISC(NARMISC) ,AR ( MAXDIM ,MAXJ ,3) 


VFACTIN = FACTIN3 (RH0,ARMISC , MAXDIM, MAX J,AR) 

The timing is approximately equal to the time for a unit call 
to UNEGNFN plus , for the cone model , 2 x 1 1 1 unit calls to 
GAUSS. For the power model, the timing is equal to one unit 
call to MTLUP and, for input values, two unit calls to MTLUP. 

The accuracy is of the algorithmic type and is dominated by 
UNEGNFN and, for the cone model, GAUSS, and for the power 
model or direct Fourier coefficient input, MTLUP. 
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MTLUP 



COMPUTE THE J LOCATION OF THE INPUT 
DATA CORRESPONDING TO ICOEF FOR THE| 
DISTORTION COSINE AND SINE SERIES 
1-1,2 RESPECTIVELY 


u 

COMPUTE THE AVERAGE | 
VALUE BY SPANWISE 
INTERPOLATION 

r* 




ABN (1) 




USE THE AVERAGE 
INPUT VALUE 


ABN (l)=AR <2,J,2) 


50 CONTINUE 


COMPUTE THE COMPLEX DISTORTION 
COEFFICIENT FOR (Ji ) 

WSBLRHO "CMPLX <ABN(1),~ABNK2)) 



WSBLRHO-CONJG (WSBLRHO) f—i 


COMPUTE THE INTEGRAND 
OF OSCILLATORY FACTOR 

FACT 1N3=SCPTRMN • WSBLRHO I 


^ RETURN ^ 
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COM»LEX FUNCTION FACTIN3IRHO# ARMISC#M4XDIM,MAXJ# AR) 

PURPOSE EVALUATE THE INTEGRAND FACTIN3 TO 8E CALLED BY THE 

INTEGRATOR GAUSS 2 


DIME NS I ON AR(MAX01M»MAXJ#3)#ARMISCI1)»ABN(2) 

COMM ON/C FACT/ M,N,RMUMN»C4PNMN,ETA,S ign.l.capkmn 

COMPLEX WS8LRH0.VS8LRH0.01S INT* V ALU I NT 

C OMM ON/CDI S I NT / CAP ADI S» RHQI NC 

EXTERNAL DISINT 

DATA PI/3. 14159265353979/ 


EVALUATE NORMALIZED EIGENFUNCTION 

SCPTRMN - UNEGNFN(M»RMJMN#ETAjRHOI/CAPNMN 

COMPUTE THE DISTORTION FACTOR 

WSBLRHO « <0.»0.) 

IFIL.EQ.OI GO TO 100 
I F ( ARMI SC (22) .EQ. 0. > GO TO 100 

COMPUTE THE FOURIER COEFFICIENTS FROM CONE MODE 

I F ( ARMI SC ( 22 1 .NE. 1. I GO TO 20 
RHQI NC » RHO 
VADBV1 « ARMISC 123) 

CAPAOIS- ARM I SC ( 24 ) 

OVALUE • ( 1.-VADBV1) / <CAPA0IS**2-1. ) 

DELTALO* 0. 

IF(L .EQ. 0)OELTALO*1. 

DELTAL1- 0. 

IABSL « 1A3SIL) 

IFII ABSL.EQ. DDELTALl-l. 

IORDGS » 2 

NOSCE « MAXOI 2»2+IAB SU 
WIOTHI » 2 . * PI / NOSCE 
DO 10 ITRVL- 1. NOSCE 
RLOW « I IIRVL-l ) *W ID T HI 
RUP * RLOW ♦ WIOTHI 

CALL GAJSSIRLOW.RUP, V ALU I NT ,0 I S I NT. I ORDG S ) 

ID WSBLRHO « WSBLRHO ♦ VALUINT 

WSBLRHO * » 1 . + 0 VALUE J *3EL TALO - . S*C AP AD I S*RHOO ELT AL i *DV ALUE 
1 - . 5* j /Ai. j£ * <»J3 l XHC/Pi 

WSBLRHO * ”2.*PI*WS3LkHO 
GO TO 130 
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COMPUTE the FOURIER COEFFICIENT FROM POWER MODEL 

/. 0 IF! ARMI SC (22) .N6. 2. ) GO TO 60 

0 • ARM I SC I 23 ) 

IA3SL » I A3S( L ) 

J - 9 * ARMI SCI 20 > ♦ 2 M 
NSPN * AR( 1, J.2 ) 

IF! NSPN ) 40# 3 0* AO 
23 C Or F A l » AR(2»J#2I 
GO TO 53 
40 IPA « -1 

CALL MTIUPIRHO# C0EFA1 .i#NSPN» NSPN# 1# IPA# ARI 3. 1.2 ) »AR (3# J.2 ) ) 
50 WS8LRH0 ■ #5*C0EFAl/FL0AT ( l A8 5L ) **Q 
GO TO 130 

COMPUTE THE FOURIER COEFFICIENT FROM INPUT VALUES 

GO I F ( ARMISCI22I .NE. 3. I GO TO ICO 
I ASS L * IABS(L) 

MAX! OEF « ARMISCI23J/2 
MULTFCT * ARMI SC I 24 l 
00 65 NCOEF* 1# MAXCOEF 
IFII ABSL.NE.NCOEF+MULTFCT) GO TO 65 
ICGEF * NCOEF 
GO TO 67 
6i> CONTINUE 
GO TO 100 
67 00 50 14 9*1.2 

J * 9 ♦ ARMISCI20) *2 *■ 2*<IC0EF-U ♦ US 

NSPN * AR< 1. J, 2 ) 

I F ( NSPN ) 30# 70.80 
70 A BN< IABI-ARI2# J#2I 
GO TO 90 
80 IPA * -1 

CALL MTLUPIRHO. ABN 1 1 A B) . 1 .NSPN. NSPN. 1 . I P A * AR I 3 * 1 . 2 I . AR ( 3 » J * 2 > » 
90 CONT INUE 

WSBLRHO * . 5*CMPLX( 4 8N I 1 I . -A BN I 2 ) ) 

I F ( L.LT.O ) WSBLRHO * CONJGI WSBLRHO) 

C0M8INE TO FORM FACT I N 3 

100 FACTIN3 * SCPTRMN*WS3LRH0 

RETURN 

END 
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3.2.9 Function FACTIN4 


Purpose: 


This function evaluates the oscillatory factor of subroutine 
BBCAA. 

If ARMISC(25) = 3 (i.e., LIFTFN3 or NONCPT is specified): 

FACT IN4 -fl m ( U „ n p)(g 1 (»)F 1 (p)-8 2 (p)F 2 (p)), 


where : 

(p-R) 2 PR 


g j (0) ■ 

2a 

2uP . • e • / 

j M 

f PR \ 

0 a j -i** 

e e 


2 BT\ SIN (BT) 

if 

BT . < . 1 
I 


Y/ 2v Bt 


vv 

'h(’J 

if 

.1± BT < 10 

if 

J 

10<BT . 


j 






COS (id t) d 0) 


If ARMISC(38) = 0, then: 

F l (p) ’ SIN(e 2 (p))s (Pt(P))-“<P)« z>2 <P) F a ^ " e < P> ) 


-£(p)h z , 2 (p)f £ 


( V l (,>> ) 


,(p) = M Z> 2 (p)S^ £ (p)j +a(p)M Mj 2 (p)SIN(© 2 (pj)F a ^v £ (p)^ 
+f(p)M Mj2 (p)SIN(e 2 (p)F f ^v £ (p)^ 
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If ARMISC(38) j 0, then: 




If ARMISC(25) » 4 (i.e., LIFTFNU is specified): 


FACTIN1+ = 2 VZn 


n | M p\ 

u l mn / 


-i£<f> 




2 

pR \ -P R / a i 


I m\e- oR / a 2l. 


P 2 ^ 2 h) 


where : 


l i * a 


CO 

j.Rejy* e“ 1(p ~ R)K T*(h(p,K), <J/(p,K))e 


- A !/ 2 


dK 


LIFTFNU calculates T(h,i|>) 


h(p ,K) - 


c 2 (p) 


/k 2 + [•.-£■ SIN 0 2 (p)" 


-l/ C 2 (p)K \ -1/ ; - ; 1 = = \ 

ip(p,K) - COS ^2h(p,K)/ C ° S V 1 + C^ p SIN 0 2 (p )) 2 ' 


G 


1 


= TAN SIN 0,(p) 

.Kp 2 


') 



Method: 


The procedure is as follows: 


1) Evaluate normalized eignfunction, ft (y ). 

m ran 

2) Compute BT . 

J 


3) 


If BT < 

U 

step 6. 


• 1 , 


calculate P 


i 


as in equation above and go to 




If .1 < BTj <10, then calculate by using subroutine 

GAUSS with [2 tB/tt] + 1 subintervals of the interval [0,B] 

(the integrand is an even function so the interval [0,B] 

was used). Calculate P and go to step 6. 

J 


5) If 10 < BT , calculate P . 

J J 

- -pR/a 2 

6) Calculate I (pR/a, ) e 

x ’ J 


7) 


Calculate e 


i*$ 


8) 


Obtain Mj 2 (p), Mg 2 (p), 2 (p), C 2 (p) from array AR 

using lirear interpolation, if necessary. 


9) If ARMISC(25) = 3 (i.e., LIFTFN3 or NONCPT is specified), 
obtain f (p), a(p) from array AR. 


10) Calculate M^ g(p) and sin 0g(p). 

11) If ARMISC{25) = 3 (i.e., LIFTFN3 or NONCPT is specified), 
calculate g^ ; use subroutine LIFTFN3 or NONCPT and 
Fg. Calculate FACTINU and return. 

12) If ARMISC(25) = k (i.e., LIFTFNlt is specified), calculate 
1^ using "trapezoidal rule open at upper limit" as given on 
the following page: 


175 



Usage : 


l i = a j Re | f e ±(p R)K T * e K a j dK j 


= Re 


oo 

(•,/ 


r i(p-R) x/a T * ( . h . t4>) 


(Let x = Ka) 


-x / 2 1 , 

e — dx 


= Re 


{/ e 1(P ^ j l^h(p,x/a.), *(p,x/ aj )J e"* /2 dxj 


Vvx 


Yl Re.| e “ i(p “ R) /KA/aAe (kA >‘ /2 T* 


K=0 


( KA / a j)' 


(p,KA/ &j (p,-KA/ a ^ 


where : 


A " R^" ’ K MAX 


|i + i. and £ 


N 


a K = 


y a o + a, + 


1 + *'* + v 


K=D 


calculate FACTINU and return. 


CALLING SEQUENCE 

COMPLEX FACTINU.Z 

DIMENSION ARMISC(UO) ,AR(MAXDIM,MAXJ,3) 

COMMON / CFACT/M , N ,RMUMN , CAPNMN ,ETA .SIGN ,L , CAPKMN 
COMMON/SCRATCH /BES ( 1000 ) 


z = factinMrho,armisc,maxdim,maxj,ar) 
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Accuracy : If ARMISC(25) = 3, the accuracy is dominated by the accuracy 

of subroutines UNEGNFN and LIFTFN3 or NONCPT. 

If ARMISC(25) = 4, the accuracy is dominated by the accuracy 
of subroutine LIFTFNl and the truncated trapezoidal rule used 

to calculate I.. 

’ J 
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UNEGNPN 



CALCULATE 

w cpx isi 


SCPTRMN 

“ jC. 1 J 

BTJUX.l 

•li BTJ (J) - 10 

y c 

CALCULATE 
BTJ (J) 

“I 


10 < BTJ (J) 


CALCULATE 

PJ(J) 


CALCULATE 

NOSCE.WIOTHI 


CALCULATE 
PJ (J) 


SET IN =1 
I NO 


CALCULATE 
EJ (J) OVER IN th 
SUBINTERVAL 


CALCULATE 
EJ (J), PJ ( J ) 


IN > NOSCE 


IN = IN+1 


CALCULATE 
BESIEJ (J) 


J = J ♦ 1 


UTLUP 


CALCULATE 

MSBI 


AR (1,7,2) >0 


MSBI = 
AR (2,7,2) 


CALCULATE 
CTEMP1* e~‘ Ji 
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o o 'i o n 


COMPLEX FUNCTION FAC T IN4 ( RHO. ARMI SC. HAXD I M.MAX J. AR ) 

PURPOSE EVALUATE THE INTEGRANO FACT IN4 TO BE CALLED 8T THE 

INTEGRATOR GAUSS2 


REAL INTEGJ,MS8£,MS3I /MS BM» MS BT» MS 8Z 

COMPLEX CAPF l, C APF2» C LI F T 4, CT EMP L »C T E MP2 , FUNI N4 » G J I 2 I .LIFT A, 
1 VALUINT 

0 IMS NS ION AR(MAX0IM/MAXJ,3)/ARMISC( 1)/ABN(2).£J( 2). INT EG J ( 2 ) 
DIMENSION BESIE J ( 2 ), B TJ I 2 > , P J I 2) . T J I 2 > 

COMM ON/C FACT/ M,N,R MUMN , C A PN MN, E T A. S I GN , L »C APKMN 

common/cfunin4/ctj,tau 

COMMON/SCRATCH/BESIIOOO} 

EXTERNAL FUNIN4 

DATA PI.TWOPI/ 3.14159265358979, 6.28318530717959/ 

DATA S0RT2PI/2. 506628274631 / 

EVALUATE NORMALIZED EIGENFUNCTION 

SCPTRMN * UN£GNFNlM,RMUHN,ETA,RHO)/CAPNMN 

1C DO 50 J* 1.2 

TJIJ ) * AR M I SC < 33 + J ) / AR(2,9,21 
8 T J( J ) « ARMISC <36)4T J« J ) 

I F ( 6TJ( J> ..LE. 10. ) GO TO 20 

TEMPI * -ARMISC <37)*ARMlSC< 37 » / I 2 . *T J I J J *T J ( J ) ) 

PJ{J) » ARMISCt 29>J)*EXPITEMP1I 
GO TO 40 

I F ( BTJIJ) .LT. .1 1 GO TO 30 

1 OR} GS * 2 

TAU - ARMISCI37) 

CTJ - TJIJJ 
E JIJ ) > 0. 

NQSCE « 2* IF IX ( T AU* A RM I S C ( 35 J / PI l ♦ 1 

W IDT H I « ARMISC (36) / NOS CE 

DO 25 IN«1,N0SCE 

RLOd « FLOAT! IN-1)*WI0THI 

RUP » RLOW 4 WlOTHl 

CALL GAJSSIRLOW.RUP, VALUI NT, FUN IN 4, IOROGSI 
E JIJ ) - EJIJJ * REAL! VALUINT) 

2 5 CONTINUE 

EJIJJ * I2./S0RT2PI)*TJ( J )*E J (J) 

PJIJ ) » ARMISC ( 294 J ) 4 E J I J I 
GO TO 43 

30 BTAJ - ARMISC! 36) *ARM ISC I 37) 

IFI3TAU .EO. 0 . ) TEMPI - 1. 

IFI3TAU .NE. 0. I TEMPI * S I N I 3 T AU J / 8 T A U 
PJ“-(J ! = ARMI SC l 29* j) »2.rB Tj I J J»fcMPl / 53RT2PI 

•O TEMPI * RHO* ARM ISC i2o ) / I ARM ISC i il * J > *A RM ISC I 3 1 4 j )) 

CALL BES IE (L. TEMPI, BESIE J IJ )) 

50 CONTINUE 
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C 76M P 1 « CMPLXI 0.*-L*ARMI SC 129) ) 

CTEMP1 - CEXPICTEMP1) 

IP * -1 

IFI ARI 1/7,2) . GT . 0. I CD TO 60 
HS81 » AR I 2* 7* 2 ) 

GO ro 70 

NPTS = API 1*7# 2 > 

CALL MTL UP I RHO * MSB I » 1 »NP TS, NP TS* 1* I P, AR C 3* 1*2 ) » AH ( 3 * 7* 2) ) 
if! ARI 1*8*2) .GT. 0. I GO TO 80 
MS8E * AR (2.8.2 ) 

GO TO 90 

' C- NPTS * AR I 1.8/ 2 I 

CALL MTL UP(RHQ*MSBE»l*NPTS»NPTS*l*IP#ARI3»l#2),ARl3»3»2)) 
IF! ARU»9 ,2) .GT. 0. ) GO TO ICO 
MS3Z - AR( 2*9. 2 ) 

CO TO 110 

NPTS * ARI 1*9*2) 

CALL MTLUP I RHO, MSBZ, 1 *NPT S* NPTS »l* IP* ARI 3* 1*2) » AR 13 ,9*2) > 

) F ( A R ( 1* 2* 2 ) .GT. 0.) GO TO 120 
CHORD « AR I 2*2* 2) 

GO TO 130 

; NPTS * ARI 1*2*2) 

CALL MTLUr I RHO. CHORD, 1* N P TS ,N PT S * 1, I P, A R ( 3* 1 » 2 I » AR I 3* 2* 2 ) ) 
' ' 1 F ( ARM1SCI25) .EO. 4. ) GO TO 170 

I FI4 R (1, 10,2 > .GT. 0.) GO TO 140 
F RHO * ARI 2U3, 21 
GO TO 150 
NPTS •* ARI U 10* 21 

CALL MTLUPIRHO* FRHO, 1 *NP T S» NP TS » 1 * I P . AR ( 3*1,2)»ARI3, 10*2 > ) 
IFURd, 11,2) .GT. 3.) GO TO loO 
ALFA « ARI 2, 11* 21 
GO TO L70 

! < Q NPTS » ARI 1# 11 , 2) 

CALL MTLUPIRHO, AL F A, 1 *NPT S* NP TS* 1 * I P* AR I 3, 1, 2 ) * A R I 3 , 11* 2 ) ) 
’0 IFMS6I .LE. MSBZ) TEMPI - 0. 

IFINSBI . GT. MS8Z) TEMPI . SORT ( M5B.I +MSB l - MS3Z*MS8Z> 

I FliSBE .LE. MSBZ) TEMP 2 « 0. 

IFIMSBE .GT. MSBZ) TEN.P2 « SO RT I H S B E *MS8 E - MS3Z*MSBZ) 

T EM? 3 * . 2 5* I T E HP 1 ♦ TE MP 2) ♦! TEMP 1 ♦ TEMP2) ♦ MSBZ*MSBZ 
MSBM « SORT 1TEMP3) 

SINTMS « I TEMPI ♦ TEMP2I / 12. ♦MSBM) 

COSTHS • SORT! 1.-S1NTHS^2 ) 

COTTHS » COSTHS / SI NTH S 

IF! ARMI SC 125) .EQ. 4. > GO TO 190 

DO 1 80 J«l»2 

TEMPI » -I RHO-ARMIS: I 23) ) ♦< RHO- AR M I SC I 2 3 ) ) / 

1 I 2. ♦ARMI SCI 310 ) *ARM l SCI 31 ♦ J) ) 

ISO GJIJ) * TWOPI*P J( J )♦£ XPI TEMPI )M8ES IE J( J )*CTEMP1 
(MS3T » ARMISCI 7) 

RNU «■ CH0R0*L*MS3T / 12. ♦MSBM) 

B1 * 1. 

B 2 • -ALFA^COTTHS 
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KO 


83 * -FRHO*COTTHS 
l F ( A R Ml $ C ( 33 ) . E 0. 0. J 
IF(ARMISC133).NE.C.) 

1 


CALL L IFTFN3(RNU»B1»82»83*CAPF l I 
CALL NOSCPT(Bl»82*83»CHQRD»CA?KMN»COSTHS»N* 
RHO,RNU>SlNTHS#C APF l| 


B 1 « COTTHS 
82 « ALFA 
B 3 * FRHO 

IFIARMISCI 33). EQ.O.l CALL L IFTFN31RMU>81#B2*83»C APF2 I 
! FlARMISC l 38J.NE.0.) CALL NONCP T ( B l . 8 2» 3 3»CH0R 0» C AP<MN,COSTHS.M# 
1 RHO.RNU>SINTHS*C APF2) 

FACTINA - SCPTRMN*IGJ U1*CAPF 1 - GJ12»*CAPF2>*MSBM*SINTHS 


RETJRN 
I FQl M • 2 
FKMAX « 20. 

00 250 J*l#2 

DEL< * ARM l SC l 3 1*4 1 / ARMISC128I 

fNTEGJ(J) * .5 

KMAX * FKMAX/OELK ♦ 1. 

00 2A0 K * l » K MA X 
TEMPI ■ DELK*K t ARM l SC ( 3 1* J I 
TEMP 2 * -<RHO - ARMISC(28»»*T£MPI 
CT6MP2 * CMPLX l 0. »TEMP21 

CTEMP2 • C£XP(CTEMP2)*EXP(-.5*(DELK*K>**2) 


COMMUTE FILOTAS L. R. F. 


TEMP2 • TE MP 1* * 2 ♦ ( L*SINTHS / RHO >**2 
HRH3K « . 5*CH0R O+SOR T (TEMP2) 

FSI • AT ANl L+S l NTHS / (RHO*T£MPl» ) 

CALL LlFTFNAlHRHOK#PS I»IFQRM» LlFTA*IERLFTA> 


ACCUMULATE INTEGRAL 


CUF T A * C ON J G < L l FTA I 

INTEGJ(J) * INTEGJIJ) ♦ REA L < CTEM P2*CL I FT A) 

PAO CONTINUE 

INTEGJIJ! - OELK*INTEGJU J 

,?50 CONTINUE 

FACTINA « 2 .*S 0 RT 2 PI*SCPTRMN*CT£MPl* 

: I MS 8 M*SINTHS*PJI 1 )*BESJE J< 1 )*INTEGJ{ 1 ) 

2 -MS 3 Z*PJ( 2 > * 3 E SIE J( £)*! NTEGJl 2 » ) 

RETJRN 
ENO 
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3.2.10 Subroutine LIFTFN2 


Purpose: 


This subroutine computes a generalized airfoil lift response 
function (see ref. 33). Subroutine LIFTFN3 computes the air- 
foil lift response to a simple harmonic gust "frozen" in the 
fluid (the Sears function) , while this subroutine computes 
the corresponding response when the gust is simple harmonic 
but not frozen in the fluid. Both response functions arise 
in thin airfoil theory with two-dimensional, uniform, inviscid, 
incompressible flow. 


The response function, which is the return variable LIFT, 
depends on v and X, where: 


v 
A = 

LIFT = 


reduced temporal frequency 
complex reduced spatial frequency 


\(V,A) 


v > 0 


K^(-v, -A) . v < 0 


CONLIFT = LIFT, where an overbar indicates complex conjugation, 
and 


^(v.A) 


= < 


H.f 1 2 ^(v). 


fdo(^)^i(^)l /’2'i ( 2 ) 

L 1 J H^'(v)+i H 0 U; (v) 


v/A ^ (X) 


H^ 2 ) (v) 


(v) 4 iH ( d 2) (v) 


Jq(A) (A) 


if vA # 0 

+ i v/2 if v / 0,A = 0 
if v = 0,A 0 


1 if v = 0,A = 0 

-100 < y < 100 and A is complex with f A j < 100. 
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Method: 

The procedure is as follows : 


1) 

If v > 0, go to step 3 to calculate K^(v,X). 

■ 

2) 

If v <0, go to step 3 to calculate K^(-v,-X). 


3) 

If v 0, calculate HANKEL = 



“l (2> M , , „ (2) . , 
Hi < 2) (v) 1 H 0 <»> 


k) 

If X j* 0, calculate BESJLAM = J Q (x) -i (X). 


5) 

If v 4 0 and X 1 0,_ calculate -CAPKL = BESJLAM * HANKEL 
+ i v J^(X)/X and go to step 9* 


6) 

If v ^ 0 and X = 0, calculate CAPKL = HANKEL + i v/2 
and go to step 9. 


7) 

If v = 0 and X / 0, calculate CAPKL = BESJLAM and go 
to step 9- 


8) 

If v = 0 and X = 0, let CAPKL = 1 and go to step 9. 


9) 

If step 3 reached from step 1, go to step 10. 
If step 3 reached from step 2, go to step 11. 


10) 

Calculate C0NLIFT = CAPKL = K T (v, X), LIFT = C0NLIFT = 

L* 



K^ (v, Xjj and return. 


11) 

Calculate LIFT = CAPKL = Kj { -v, -X ) and calculate 
C0NLIFT = LIFT = (-v, -X) . 
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Usage: 


CALLING SEQUENCE 


COMPLEX CONLIFT ,LAMDA,LIFT 


CALL LIFTFN2(RNU,LAMDA, LIFT, CONLIFT) 


Common Blocks : SCRATCH 

Restrictions: -100 < RNU < 100 and | LAI^DA | < 100 

Timing: The average time over li+00 calls to LIFTFN2 is .015 second 

per call. 


Accuracy: Each value checked had six significant digits. The table 

below shows which values were checked. 
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BSSLS AND BF4F 


CALCULATE 

h| Z) oo 


HANKEL= 


. IT < 0 


!LI 

SAVE V AND A 
SET V~~ir 
AND A = - X 
IGO = 2 




m 







70 



89 












SUB< OUT I ME l IFT FN2(RNU»LAH0A» L1FT*CQNL IFT 1 
REAL LAMOAR.LAMOAl 

COMPLEX BESJLAM,8J1LAM,8J2L AM»CAPKL»C0NL IFT»HAN<EL» HlRNU,H2RNU 
COMPLEX L AMOA.L IFT,S A VEL AM 

01 ME NS I ON 3JLAMR12 5CI ,3JL AM l( 250 ) ,BYLAMR ( 50 I »BTL AMI ( 50 » 
COMMON/SCR ATCH/8ES II 0001 

EQUIVALENCE (3ES(11«BJLAMR( 1) ),(8ES(2511»BJLAMI( III 
EQUI VALENCE < 8 E S l 501 ) ,8 YL AM R( 1 1) . ( BES ( 55 l 1 , B YL A M l ( l 1 1 
l F ( R NU .GE. 0.1 1 G >30 

10 ICO - l 
GQ TO 50 

. ' COWL IFT ■ CAPKl 

LIFT » CONJGICONLIFTJ 
RETJRN 

SAVERNU * RNU 
SAVELAM * LAMOA 
RNU « -RNU 

LAM3A « -C ON J G ( LAMOA ) 

ICO - 2 

GO TO 50 

LIFT * CAPKL 

CONL IFT * C ON J G { L I FT ) 

RNU * SAVERNU 
LAMOA * SAVELAM 
• ETJkN 
SIGN « - 1 
NG * l 

A 8 Si AM - CABS ( L AMO A) 

IFIRNU .EQ. 0. ) GO TO bO 
CALL BSSLS (RNU, 3ES»NB,IERR> 

BJ1RNU » 8 ES ( 1 J 
BJ2RNU » B E S ( 2 I 

CALL BF<,F( RNU, 8E5, N8» IERR,ISIGN) 

BY1RNU » -BESIll 
BY2RNU » -BESI 2) 

H1RNU « CMPLXI 8JIRNU, BYIRNUJ 
H2RNU « CMPLX( 8 J2RNU, 8Y2RNU) 

HANSEL ■ H2RN'J t (H2RNU ♦ ( 0. , 1 . I *H 1RNU ) 

C I F(A3SLAM .EO. 0.1 GO TO 70 
L A * J A R » REALILAMDAJ 
L AMO A I * A I M AG ( LAMOA ) 

CALL FQCA8ES(LAM0AR,LAM0AI,0. ,N8 , B J L AMR, B JL AM I , 3 Y L A MR, BT L A M I ) 
BJ1LAP « C MPLX ( 8JL AMR (1 1 » BJLA Ml (I) 1 
BJ2LAM , CMPLX ( 8JLAMR (2) , BJLAMI ( 2) I 
8 ES J L AM * 3JILAM - ( 0 1 . 1* 8 J 2L AM 

70 1 FUNU .EQ. 0. » GO TO 90 

IFU9SLAM .EQ. 0.) GO TO 80 

CAPSL * 3ESJLAM*HiS<t L ♦ (0 1. 1 ♦RNU*BJ2LAM7L AMO A 

GO r y i 20, ->0 ) I GO 

50 CAPSL * HANKEL ♦ 1 0. , 1. 1 *RNU/ 2. 

GO TO (20, MO! IGO 
90 IFIABSLAM .EQ. 0.1 GO TO 100 

CAPSL « BESJLAM 
GO TO (20, 40) IGO 
100 CAPSL * (l.,0. 1 

GO TO 120, 40* IGO 
ENO 
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3.2.11 Subroutine LIFTFN3 


Purpose: 


LIFTFN3 computes the complex frequency response of aerodynamic 
lift of a thin, two-dimensional airfoil with parabolic mean 
camber line and angle of attack in a uniform, inviscid, incom- 
pressible subsonic mean flow. The current procedure is to use 
a linear combination of the responses to the transverse and 
longitudinal components of the incident velocity perturba- 
tion. The response to the transverse component corresponds 
to the Sears function (see ref. 32), while the response to 
the longitudinal component is the sum of two terms , one pro- 
portional to the angle of attack and the other proportional 
to the ratio of maximum camber to half-chord (see ref. 35): 

L(v) = S(v) - COT $ [f F f (v) + aF^ (\>)] 


with v the reduced frequency, B the angle made by the 
velocity perturbation and the mean flow through the cascade, 

S the Sears function, f and a the ratio of maximum 
camber to the half-chord and the angle of attack, respectively, 
and F^, F q the camber and angle of attack responses to the 
longitudinal component' of the velocity perturbation. 


F f (v) 


Hq 2) ( v ) + i H^ 2) (v) |- J 1 (v) 

-H«>Cv) + iH«><v) 


r J i^ v ) 1 4 

[j 0 (v) + i V V) J + v J l (v) 


i J, 



F a (v) = Jo(v) + i J^(v) , S(v) 


2v 

TT 


-1 


h! 2 ) (V) 


+ i H 


( 2 ) 
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Method: 


It should he noted that these response functions, including 
the Sears function, are spectral functions under the 
convention : 


oo 



itot 

e 


dm. 


The subroutine computes : 

L(v) = bjSCv) + b 2 F a (v) + b 3 F f (v) 


where b^ = 1. , b^ = -a cotg, and b^ = -f cotg are calculated 
outside the subroutine. 


The procedure is as follows : 


1) Input v, b^, bg, b^ through calling sequence. 

2) Set S(v) = 1, F q (v) = 1, F f (v) = 2, and go to step 8 if 
v = 0. 


3) 

10 

5) 

6 } 

7) 


Compute J 0 (|v|), J ]L (|v|), Y 0 (|vj), | v | ) . 

Compute hJ- 2 \|v|), 2 ^ C | v | ) . 


Compute S(v) = 


fS(|v|) 


Compute F (v) - 

a lF(H) 


a 


Compute F (v) =. 


if v > 0 
if v < 0 


's( 1 v j ) 

F ( | v | ) if v > 0 
a 


if v < 0 


[F f (|v|) if v > 0 


,F f ( jvj) if v < 0 
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8 ) 


Usage : 


Restrictions : 
Accuracy : 


Compute L(v) = b^S(v) + b ^ F a (v) + F^(v). 


9 ) Return . 

CALLING SEQUENCE 

COMPLEX CAPLT 
COMMON/SCRATCH/BES ( 1000 ) 


CALL LIFTFN3(RNU,B1,B2,B3, CAPLT) 


None 

The accuracy is of the algorithmic type and, in particular, 
is dominated by subroutines BSSLS and BFUF. 
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SUBROUTINE LIFTFN3IRNU»B1»B2» B3.CAPLTJ 


C REFERENCE H. NAUMANN AND H. YEN# LIFT AND PRESSURE FLUCTUATIONS OF 
C A CAMBERED AIRFOIL UNDER PERIODIC GUSTS AND APPLICATIONS 
: IN TURBOMACHINERY# JOURNAL OF ENGINEERING FOR POWER# 

C TRANSACTIONS OF THE ASME# JANUARY I'm. 


COMPLEX CAPLT#C TEMPI. FALPHNU# FFNU#HIRNU»H2RNU# SNU 
COMMON/SCRATCH/BESUOCO) 

0AT4 PI, I SIGN/ 3. 1*1592553 5897 9.-1/ 

FOR RNU IN ABSOLUTE VALUE LESS THAN I.E-10# SET THE 
FUNCTIONS TO I ANO RETURN 


SNU » (UiO.I 
FALPHNU =( l.#0. » 

FFNJ « ( 2. #0. 1 
ABSNU * ABS(RNU) 

I F ( ABSNU .LE. I.E-10 » GO TO 30 

COMPUTE FUNCTIONS FOR ABSNU AND THEN RNU 


COMPUTE REQUIRED BESSEL FUNCTIONS 

20 CALL BSSLSI A8SNU#8ES» l# IERRT 
BJI * BES(l) 
eJ2 - 8ESI2) 

CALL BFAFIABSNU.BES, 1 , l E R R# IS 1 GN ) 

BY! - BESI 1) 

BY2 * BESI2J 

COMPUTE HANKEL FUNCTIONS AN SNU 

HIRNU * CMPLXI B Jl.-BY I) 

H2RNU * CMPLX(BJ2#-BY2I 

C TEN PI » CMPLXI 8J1-BY2.-8 J2-8YU 
SNU « I. /I . 5*P I *ABSNU*CTEMPl> 

IF! RNU. LT. 0.1 SNU • CONJGI SNU J 

COMPUTE FALPHNU 

FALPHNU « CM PL X I B J 1# 0 J2 ) 

IF! RNU.LT.O. I FALPHNU » CONJGI FALPHNU ) 

COMPUTE T# F » ANO FALPHNU 

CTEMPl - IHIRNU ♦ (0.# 1. }*H2RNU) / I-HIRNU ♦ I 0 . # t . I *H2RNU I 
TEMPI » BJI - 8J2/ABSNU 

FFNJ » CTEMP1*CMPLXI TEMP1#-BJ2» - C MPL X I T EMP 1# 8 J 2 > * 4.*8J2/ABSNU 
IF! RNU.LT. 0. ) FFNU « C0NJGIFFNU1 


30 CAPLT « Bl*SNU ♦ 82*F ALPHNU ♦ B3*FFNU , 
C 

RET J RN 
ENO 
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3.2.12 Subroutine LIFTFNU 


Purpose: 


This subroutine computes the lift response function of a flat 
plate, thin, two-dimensional airfoil in incompressible flow 
to an oblique, frozen-convected gust (see fig. 12). 


The response function T(v,B) depends on v and B , where: 
v = reduced frequency 
B = gust yaw angle 


and 

T(v,B) 


1 

fv F(v,6) 


W + I 1 <V 2 J 

J 0 (v 1 -i v 2 > + i J^v^i v 2 ) 


-iv 


F(v,B) = -v + e 


1 { V 2 K i^ V 2 ) ~i K ° (v 2 ) } " V SECB g < v 2 ’ TANB) 


G(x,a) 


» 

J e 1<XZ K 0 (z) dz 

x 


where v.^ = V sinB, v 2 = v cosB, Iq,^ 80 d K o' K l are the 
modified Bessel functions, and and are the Bessel 
functions . 


An approximation formula (ref. 36) is: 


T(v,B)' 


nB 

-iv SINB 

a 

L l + 


IT 8 (1+jCOSS) 


2ttv(1 + f COSB) 


,] 


|l + 7T v ( 1 - SIN 2 B + 7 TV C0S8)j 2 


The subroutine evaluates either the response function or the 
approximation in the return variable LIFTU. 
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Method: 


The procedure is as follows: 


1) Initialize the error return to zero. 

2) Set = | v | sing and \> 2 - |\>| cosg. 

3) When |vj < EPS = 10 -10 , T(|v|,g) = (l.,0.) and return. 

4) When the approximation is to be evaluated, proceed to 

step 16 ; otherwise continue with step 5. 

5) When |g - tt/ 2 | < EPS = 10~^°, proceed to step 13. 

6) When |g - tt/2 | > EPS = 10~ 10 , compute G(v 2 » tang) using 

a Gaussian formula according to steps 7 to 9. 

7) Divide the range of integration into subintervals of 
width A = ir/max(l,tang) starting at v 2 » 

8) Compute the integral on each subinterval by a 12-point 
Gaussian formula, an 8-point Gaussian formula when 

1 < v 2 < 10, and a 4-point Gaussian formula when \> 2 > 10, 
with the 12-point being used whenever interval bound 
/A < 4 and summing the integrals . 

9) When the integral on a subinterval in absolute value is 
less than EPS = 10”^ times the sum in absolute value, 
accept the value and proceed to step 10. 

10 ) When an interval lower bound is more than 1000., set an 
error return and proceed to step 10; otherwise go to 
step 7. 

11) Compute the modified Bessel functions and 

at Vg. 
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Usage : 


Restrictions : 
Timing: 

Accuracy : 


12) Evaluate F(|v|, 8) and proceed to step 13. 

13) Compute F(|v|, 8) directly as: 

F(|v|,y) = COSu + v Si(v) + i jv Ci(v) - SINvJ 

where Si and Ci are the sine and cosine integrals. 
lL) Compute the complex Bessel functions: 

J Q (v 1 -iu 2 ) and J^v.-iv^ . 

15) Compute T(v, 6) using the appropriate formula, depending 
on whether v is positive or negative, and return. 

16) Evaluate the approximation formula and return. 

CALLING SEQUENCE 

COMPLEX LIFTU 


CALL LIFTFNU ( RNU , THETA , I FORM , LIFT** , IERLFTL ) 

RNU > 0 

The timing is dependent upon the input variables v and 8, 
especially in the computation of G(x,o). 

The accuracy is of the algorithmic type and, in particular, 
is dominated by the computation of G(x,a) and the Bessel 
functions of complex argument. 
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SUBROUTINE LI FT FN4IRNU# THETA. I FORK# L I FT4# IERLFT4) 


COMMON/SCRATCH/BESUOOO) 

COMMON/ ALPHA /ALPHA 

COMPLEX C TEMPI# CTEMP 2 #C TE MP 3# FRTH# GRTHFC N # L I F T4 
EXTERNAL GRTHFC N 

DATA PI# HAL FP I / 3. 141 5 9265 35 89 75 # 1 . 5707963 2679490 / 

SET RESULT FOR SMALL RNU 

IERLFT4 « 0 
EPS * l.E-10 
ABSMU « ABS(RNU) 

TEMP3 * SIN! THETA) 

TEMP 4 * CQS(THETA) 

TEMP I - ABSNU*TEMP3 
TEMP2 « ABSNU*T EMP4 
IF(ABSNU-EPS) 10# 10# 20 
L I FT 4 » { 1 ., 0 .) 

GO TO 1000 

0 I FI I FORM. E 0.2) GO TO 500 

COMPUTE EXACT FILOTAS NUMERICALLY 
« 


COMPUTE F!A8SNU,ThETA» 

IFUBS(THETA-HALFPI).LE.EPS) GO TO 300 

COMPUTE G( A BSNU# THET A ) USING GAUSS FORMULA BETWEEN HALF 

CYCLES OF THE TRIGN3METRIC FACTOR 
UNTIL A CONTRIBUTION IS SMALL 

ALPHA * TEMP3/TEMP4 
W IDT H I - PI/AMAX1(1.#ALPHA) 

CTEMP2 » <0.#0. ) 

R LOW » TEMP2 

I FI R LOW . GE . 1000.) GO TO 130 
Ni * TEMP2/W IDTHI ♦ 1. 

RUP * Nl*W 10TH l 

IFIRUP .LE. RLOW) RUP * RUP ♦ WIDTHl 
110 I0R3GS * 3 

IFITEMP2 .GT. 1.) IOROGS > 2 

IFITEMP2 .GT. 10.) IORDGS « 1 

IFIRUP/WIOTHI .IT. 4.) IORDGS * 3 
CALL GAUSS ( RLOW# RUP. C TEMP 3# GR THFC N# I OR DG S ) 

CTEMP2 * CTEMP2 ♦ CTSMP3 

I F I CABS (CTEMP 3 ) .LE. EP S *C Ad S I C T EMP 2 ) ) GO TO 130 

RLOW * RUP 

RUP * RUP ♦ WIDTHl 


202 



m RIQW - 1000. ) U0.U0.120 

'C IERLFT4 « 1 

:.'0 CALL BESIK<TEMP2.6»BESI0»BESI 1 . B ESKO .BESK 1. I ERBE S > 

C TEMP 1 * C HP LX ( COS(TEMPl). -SlN(TEMPl) ) 

FRTH « HALFPl*ABSNU*C TEMP1*CMPLX( TEMP2*8ESK 1. - TEN P i*BE S KO ) 
1 - ABSNU*CTEMP2/TEMP4 

GO TO 400 


COMPUTE P ( AB SNU . HALF P I ) 

;:r>0 CONTINUE 


COMPUTE T(RNU.THETAJ USING F ( A B SNU. THE TA ) 

CALL SIC 11 SI .C I .ABSNU ) 

S I -S I ♦HALF P I 

FRTH * CMPLXI COS ( AB SNU) ♦ ABSNU*SI. ABSNU*CI - SIN(ABSNU) ) 

BESI 0*1. 

B ESI 1 *0. 

CALL ROC ABES! T E MPl ,-T EMP 2 .0 • » l.BESI 1 ) » BES ( 450 ) . B E S ( 900 ) » B E S ( 950 ) ) 
IFUNU) 410.1000.420 

L I FT 4 * (l./l-HAlFPlOAaSNU ♦ CON JG t FRTH )) ) * 

1 (1BESI0-BESU ) /(CMPLXIBESI 1) . BE S I 450 1 ) ♦CHPLX I BE S'(4 5 1 ) . -B ES ( 2) I ) ) 
GO TO 1000 

LIFT4 * ( l./IHALFPIAABSNU ♦ FRTH)) ♦ 

1 ( (BES 10 ♦BES II ) /(CHPLX18ESI 1). BES 1 450) >-CMPLX ( BE S U 5 1 ) .- B E S I 2) ))) 
GO TO 1000 

COMPUTE APPROXIMATION TO TCR, THETA) IEOUATION 32) 

*00 TEMPI- P I *RNU+ ( 1. ♦ .5*TEMP<» ) 

TEMP1-RNU+TEMP3 - THE TA*T EMP1 / ( 1. ♦ 2.*TEMP1 ) 

TEMP2 » 1. ♦ P I *RNU* ( l. ♦ TE MP3* *2 ♦ P I *RNU*TE1P4 ) 

TEMP 2 « 1. / SORT t TE M P2 ) 

LIFT4 - CMPLXI COS I T E M a 1 ) . -SlN(TEMPl) )*TEMP2 

. 000 CONT INUE 

RETJRN 

ENO 
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3.2.13 Function DISINT 


purpose: 


Method: 


Usage: 


Accuracy : 


This routine evaluates the function: 

1 

[(Ap COS* -l) 2 - (A 2 -l) (p 2 — 1)] 2 e~ U<t> 

which is called by GAUSS in the computation of the Fourier 
coefficients in the cone distortion model. 

The procedure is as follows : 

1) Compute the square root. 

2) Multiply the square root with the trigonometric (expo- 
nential) , evaluating the equation. 

CALLING SEQUENCE 

COMPLEX DISINT , VDISINT 

COMMON / CDIS INT / CAPADI S .RHOINC 

COMMON / C FACT /M , N ,RMUMN ,CAPNMN , ETA, SIGN ,L,CAPKMN 


VDISINT=DISINT( PHI ) 

The accuracy is of the algorithmic type and is dominated by 
the system routines SQRT, SIN, and COS. 
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COMPLEX FUNCTION OISINTIPHI) 

PURPOSE EVALUATE THE INTEGRAND OF THE INTEGRAL IN THE 

DISTORTION COEFF IC IE NT 

COHNON/COI SlNT/CAPADI S#RHQINC 

CONI ON/C FACT/ M» N. RMU.IN# CA PNMN» £T A, S l GN » L »C APKN N 
FUNPHI « CAPADI S*RHO I NC*C OS (PHI 1-1. 

FUNPHI * FUNPH l * + 2 - (C AP AD IS ** 2 - 1. > *( RHO I NC **2- 1. » 
FUNPHI * SORT! FUNPHI ) 

ARC * -L *PHI 

DISINT - FUNPHI *CMPLX < C 0 S ( AR G I » S IN t ARG ) ) 

RETJRN 
E NO 
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3.2.1U Function FUNINU 


Purpose: 


Method: 
Usage : 


Accuracy : 


Complex Function FUNIN4 computes: 

2 

e cos(wT) 

An integral of this function is needed in function FACTINU. 
Subroutine GAUSS , which requires a complex function subprogram 
to evaluate the function, is used to compute this integral. 

The procedure is to calculate the function and return. 

CALLING SEQUENCE 

COMPLEX Y,FUNINfc 
COMMON /CFUNINVCTJ ,TAU 


Y = FUNIN4 (OMEGA) 


The accuracy is of the computer type. 
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C OH? LEX FUNCTION FUN l N^ ( QHE GA 1 

C0M1ON/CFUNIN4/CTJ#TAU 

TEMPI » -.5*1 { OMEGA*CTJI**2 ) 

T £M? 2 « EXPITEMPU * COS ( OMEG A*T AUI 

FUNIN4 * CMPLXt TEMP2# 0. I 

RfTJRN 

END 
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3.2,15 Subroutine NONCPT 


Purpose : 


This subroutine computes the acoustic response function for 
a noncompact airfoil from an integration of the pressure 
difference function of reference 35. 


Subroutine NONCPT computes: 

L' (v) = b • S(v) J (<*_)+ b J(v + <* ) 

n 1 ' mna/ 2 ' mna 


2J ,( v + <“ \ 

1' nmn > 


+ b. ij (<* )F(v) + — 

3 | v mna 7 ± 

' v + if 

mna 


JMAX 


2 

v 


Z (- 1)- 1 v»> [■' j+ 1 cO J j-iCO]| 


where J (X) - J Q (X) + i J (x) 


S(X) 


-L 

Y (-h£ 2 ) (x) + i hJ 2 ) (x>) 


T (X) = 


Hq 2 ) (x) +ih< 2 ) (x) 
_ Hq 2) (x) +iH < ; 2) (x) 


r — J i< x ) n r J i w i 

F(X) - T(X) [j (X) - -A— j - [j(X) - J 


J , (X) 


± 2 r ± 

< = -r— K e 

mna 2 mn 


[ K ± e - - e 1 

j mn <J> p zj 


, and 


b l’ b 2 ,b 3’ C 2 ,K mn’ < V m ’P> v ’ e z are in P ut - 
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Method: l) Set F(|v|) = 0, S( | v j ) = 1 and if v = 0, go to step 5. 


2) Compute Hq^(|v|), H^^(|v|) and S(|v|). 


( S( | v | ) if v > 0 

3) Compute S(v) = / 

( S ( | v | > if v < 0 


4) Compute F(|v|) and 


F( | v | ) if v > O 


F(|v|) if v < 0 


5) Compute, tc* 

mn a 


6) Compute Jq ( v + * . ) , J, (v + k + \ , 

v ' mna ) 1 v mno ) 

2J 1 (v + K~ ) 

and TEMP3 - — — - — where 

V + K _ 

miia 

if v + k 1 - 0, then J (0) = 1, J n (0) = 0, and TEMP 3 
mna o i 


7) If v K mn a = 0, go to step 12. 


8) Set JMAX = max (l K mncr l >| v lj + 1 . 


= 1,2, , JMAX and 


i=0, 1, , JMAX+1 using 

if JMAX +1-100 
if 100 < JMAX + 1 


9) Compute J_. (|v|) , j 


J i 


subroutine 


BSSLS 

BESNX 
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Usage: 


10) Compute J . (X) = (-1)^ J ( I X | ) where X = v, k + 

j J mno 

JMAX 

11) Compute SUM - J J ( ‘ 1)J J j (v) [ J j+ 1 (^na) 


j=l 


+ J 


, (<■ ) 

- 1 ' mno /_ 


and go to step 14. 

12) Compute necessary Bessel functions for steps 13 and 14, 
i.e., compute J„ ( ^ n0 ) , for stepU, 

compute ^2 ( K mno ) 1E ''mno + 0 and 
compute J 1 (v) if v =J= 0 . 


, -1 if v = 0 and k = 0 

mno 


13) Compute SUM =< - | J„ ( k ^ + Jo f K ) if v=0 and k 

| 1_ 2 \ mno/ °V mno/J mi 

-( — )j, (v) if v 4= 0 and k - =0 
V v / 1 ' mno 


mn o 


l4) Compute L' (v) and return. 

il 


CALLING SEQUENCE 

COMPLEX CAPLN 

COMMON /SCRATCH /BES( 1000 ) 


CALL N0NCPT(B1,B2 ,B3,C2 ,CAPKMN .COSTHS ,M,RH0 ,RNU,SINTHS , 
* CAPLN) 


Accuracy : 


The accuracy is of the computer type. 
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BSSLS 
Calculate 
J o< K mn 0 > 
J 1< |K mn 0 ^ 
J 2< K mn a > 

BES(501+j) 


I k ± I 
mn 0 

ABSKAPA 


k ± 

mn 


J j( V ) 

= -Jjd v 1) 

and Jj 

K ± ) = 

mn o ' 

-Jj(l K 

± 1) 
mn o 

for 

j ODD 

BES 


Jj( v ) = Jj(l v I) 

J:( K ± ) = J:(K± I) 

J mn a )' mnu 


■max 

Calculate £ (-DJUjf v) 

i=i 

J;+1 ( K ± )+ J;1(« ± )] 

1 mn 0 i mn a 

CTEMPl 


- JMAX 
Calculate ( ~ ) ^ 


(— 1 ) J Jj( 


<± )+ J; 

mno J 


C 
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SUBROUTINE NONCPTIBl, B2.B3.C2.CAPKMN.COSTHS.M.RHO.RNU.SINTHS. 
1 CAPLU 

COMPLEX CAPLT.CTEMP1. FNU.H1RNU.H2RNU.SNU 
C OHM ON/S CRATCH/BESd 003 > 

OATA IS I GN. P i /- 1.3.1 ‘♦15926535 897 9/ 

A8SNU * ASSIRNU) 

FNU * 10.. 0. J 
SNU * ( 1 . . 0. ) 

1FIRNU . £0. 0. ) GO TO 10 
CAL'. BSSLSI ABSNU.BES, 1. IERR) 

BJi * BESI 1) 

BJ2 « BE S ( 2 ) 

CALL BFaFI A3SNU.8ES.1 .IERR, IS 1GNI 

sri » ess m 

BY2 - BE S t 23 

HIRMU * CMPLXI B Jl.-BY 1) 

H2RNU « CMPLXIB J2.-BY2J 
CTEMP1 * CMPLXI 8J1-3Y2.-B J2-3Y1I 
SNU * 1. /( .5*P l ♦ABSNU*CTEMP 11 
IFIRNU .LT. 0.) SNU * CONJGISNU) 

CTEMP1 * (H1RNU «• I 3 . . 1 . 1 *H2RNU I / {-H1RNU ♦ ( 0 . . 1 . I *H2R NU ) 
TEMPI * 0J1 - BJ2/A8SNJ 

FNU * CTEMPI*CMPLX<TEMP1.-BJ2) - C MPL X I T E MP 1. B J 2 ) 

IFIRNU .LT. 0.) FNU * CQNJG(FNU) 

»KA?A * (C2/2. I * I C APK MN*C OS TH S - I M*S I NT HS I /RHO ) 

TEMP l * RNU. ♦ RKAPA 
3J1 « 1. 

BJ2 * 0. 

TEMP 3 * 1. 

I F I T E MP l .EQ. 0.) GO TO 20 
TEMP2 - ABSITEMPl) 

CALL BSSLSITEMP2.BES, 1. IERR 1 
BJI » BESI 1) 

BJ2 » BE S I 2 ) 

I FI TEMPI .LT. O.J 8J2 * -BJ2 
T EMP 3 « <2.*BJ2) / TEMPI 
20 I FIR NU+RKAPA . E 0. 0.) GO TO 80 
A BSX A PA * ABS(RKAPA) 

J MAX * I F I X I AMAX1IA8SKAPA.A9SNU1 ) ♦ 1 

JMAX1 * J M AX ♦ 1 

J MAX 2 * J M AX ♦ 2 

IFIJMAX1 .GT. 100) GO TO 30 

CALL 8 SSLS I ABSNU.BES. JMAX 1, IERR) 

Call bsslsi abskapa.be si sou. jmax 2 »i err > 

GO TO A3 

30 call besnxijmaxi.absnu.besi 

CALL BESNXI JMAX2.A8SKAPA, BESI 5011) 

AO I FIRNU . GT. 0. I GO TO 6C 
3 0 3 0 ; = i> AX 2. 2 

BESI I) - -BESI I I 
50 BESI 500*1 ) * - 8 ES I 530 «■! I 
60 C TEMPI * I 0. . 0 . ) 
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00 70 J* l * JMAX 
SIGN * l. 

I F ( M0DIJ.2) .NE. 0) SIGN * -i. 

70 CTENP1 - CTEMP1 ♦ S I GN*B E S < J* 1 ) * < BES(502«-J» ♦. 3 ESI 500 + J ) ) 
SUM - (2./RNU) *CTEMP I 
GO TO 90 

80 IFUKAPA .EQ. 0. > BES1501) * 1. 

IFUKAPA , EO. 0. ) 8ES( 502 ) - 0. 

ABS< APA - A3S ( RKAPA) 

IFUKAPA .NE. 0.) CAU 8 SSL S t A8 S K AP A* B E S I 501 ) » 2 * I E RR> 
IFUKAPA .LT. 0.1 BE S( 5C2) = -BESI 502 ) 

IFUNU .NE. 0.) CALL 3 S S LS < A BSNU* B E S » 1 > I E RR) 

IFUNU .LT. 0.) BESI2) * -BESI2) 

IFUNU.EO.O. .ANO. RKAPA. EQ.O.) SUM ■ -1. 

IFUNU. EO.O. .AND. RKAPA. NE.O.) SUM » -IBESI503 ) * BESI5C1)) 
IFUNU. NE.O. .AND. RKAPA. EO.O.I SUM * - ( 2. / R NU I ♦ BE S ( 2 ) 

90 CTENP1 - CMPLX(8ESI501I#BES(5C2)I 

CAPLT « B1 ♦SNU + CTEMP L ♦ B 2 * CM PLX ( B J 1 . B J 2 I 
1 ♦83*(CTEMP1*FNU ♦ TEMP3 - SUM) 

RETJRN 

END 


216 



3.3 Secondary General-Purpose Subprogram Descriptions 


3.3.1 Subroutine APR0X1 


Purpose: This subroutine evaluates the asymptotic expression, formulas 

(9.5.28) and (9.5.31) of reference 30, for the zeros of the 
function: 


J' 

\j 


(Z) 


V 

v 


(XZ) - (XZ) 


Y' 

v 


(Z) 


for X < 5, where Z — 8 + - + 

= P 


q -p 


r - 4pq + 2p ~ 


P 



Su 

X-l 


with S equal to the ordinal number of zero when v = 0 


P = 


P_+_3 

8X 


q = (p 2 + 46p - 63) (X 3 


1) 


(p 3 + 185p 2 - 2053 m + 1899) (X 5 - 1) 
5 ( 4 A ) 5 (X- 1) 


Method: The procedure is as follows: 

1 2 

1) Given q , .2 < q < 1, calculate X=~ , X-l, p,p , and g. 

= q 

2) Calculate p, q, r. 

3) Calculate Z. 

U) Multiply Z by X and output ZX. 
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Usage: 


CALLING SEQUENCE 


Restrictions: 

Timing: 

Accuracy: 


CALL APR0X1 (RM,NS,ETA,RZ) 

INPUT 

RM the value of v 

NS the value of S, a positive integer 
ETA the value of n, where X = 1/n 

OUTPUT 

RZ the computed value of ZX 
.2 < r> < l 

The time is proportional to the number of arithmetic operations, 
which is U8 multiplications, 8 divisions, J additions, and 7 
subtractions. 

The accuracy is of the computer type. 
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SUBROUTINE APRQXURM.NS.ETA.RZ) 


f PURPOSE APPLY APPROX INAT ION FORMULA TO THE ZEROS OF THE EQUATION 

JP{M» X)*YP< M,ETA*X) -YP (M»X)*JP IM.ETA*X I * R(M»X) 

WHERE JP AND YP ARE THE DERIVATIVES OF THE BESSEL 
FUNCTIONS OF THE FIRST AND SECONO KIND* RESPECTIVELY. 

OF ORDER M AND ARGUMENT X OR E T A *X , THE AP PROX I M A T I ON 
EXPANSION IS FORMULA 9.5.31 OF THE REFERENCE. IN 
APPLYING THE EXPANSION. THE VALUE OF ETA IS RESTRICTED 
TO BE AT LEAST .2 BUT LESS THAN 1 I ETA * l/LAIBOA IN 
REFERENCE ). THE FORMULA IS CODED FOR REAL NON-NEGATIVE 
ORDER RM BUT SHOULD BE USED FOR VERY SMALL ORDER. 

AS ZERO HERE 


REFERENCE HANDBOOK OF MATHEMATICAL FUNCTIONS EDITED 3Y 

M. ABRAMQW I TZ AND I. STEGUM. NATIONAL BUREAU OF 
STANDARDS APPLIEO MATHEMATICS SERIES 55 ISSUED JUNE 196* 

tr»UT VARIABLE DEFINITION 

RM REAL ORDER M, SHOULD BE SMALL 

NS F INO THE NS-TH ZERO APPROXIMATION. THE LARGER 
NS W.R.T. THE OROER. THE BETTER THE APPROX. 

• ETA AT LEAST .2 I TO FIND NS-TH ZERO, ESP. FOR 
NS SMALL » ANO LESS THAN 1 < THIS IS RATIO 
OF INNER TO OUTER RADII IN ANNULAR DUCT ). 

UTPJT RZ THE APPROXIMATION TO THE ZERO 

STRICTIONS THE RESTRICTION PLACED ON THE INPUT ABOVE 

GUARENTEE AN VALID APPROX. TO NS-TH ZERO IS FOUND 
{PLACING ETA-.15, RM*0., NS=>1 WILL GIVE ESTIMATE 
NOT OF FIRST BUT MUCH HIGHER ZERO ). 

DATA PI/017216220773250420351 / 

fl»i./eta 

FL1«FL-1. 

U*A. *RM*RM 
U2 * U*U 
B « NSPPI/FL1 

P* ( U*3. >/l8.*FL> 

Q - (U2+*6.*U-63.)*(FL**3-1.J / t o . * ( I A . *F L > ** 3 > *F L 1 > 

R* <U**3«-185. *U2-205 3.*U*189 9. )*(FL**5 -i.)/(5.*((*.*FL)**5>*FLl) 

RZ =« 5 ♦ P/8 ♦ ( O-P* * 2 > / 8* *3 + { R-*. *?*Q + Z . *P * * 3 > / 3 **5 
RZ » RZ* F L 

RETJRN 

END 
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3.3.2 Subroutine APR0X2 


Pur-pose: 


Method: 


This subroutine computes an approximate value for one zero of 
the ordered set of zeros of the cross-product function: 


j;(x) Y^(nX) - Yq(x) J^Cnx), 

when n < 0.2, where J q and Y q are, respectively, the Bessel 

and Neumann functions of the zero th order, and primes denote 

differentiation with respect to the argument. For n = 0, 

formula (9.5.13) of reference 30 is used. For 0 < n < .2, 

quadratic interpolation is used with the values of n = 0, 

obtained from this routine, and for n = .2 and .3, obtained 

from subroutine APR0X1 (see preceding description of APROXl). 

* 

The procedure is as follows: 

1) If the ordinal number of the zero is one, equate the zeros 
to stored values. 

2) If the ordinal number of the zero is not one and the input 
n > 0, obtain approximate values for the zeros for the 
table values n = .2 and .3 from subroutine APROXl. 

3) If the ordinal number of the zero is not one, compute the 
approximate value for the zero for the table value n = 0 
using formula (9.5.13) of reference 30. 

U) If the input n = 0, return the computed value from step 3. 

5) Compute the approximate value for the zero by quadratic 
interpolation. 
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Usage 


CALLING SEQUENCE 


Timing: 


Accuracy: 


CALL APR0X2(RM,NS,ETA,RZ) 


INPUT 


RM 0. 

NS the positive zero is to be approximated 
ETA the hub-to-tip ratio, .0 < n < .2 

OUTPUT 

RZ the corresponding approximation 

For ti = 0, the time is equal to that of APR0X1; for n > 0, the 
time is three unit times for APR0X1 plus the unit time for 
MTLUP. 

The accuracy is of the statistical type for the interpolation. 
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SUBROUTINE APRQX2IRM. NS.ETA.RZ) 


PURPOSE FINO AN APPR OX I MAT ION TO THE ZEROS OF 

JP(M»X)*YPI M, ETA*X)-YP(M»XI+JPtM.ETA*X) 

IN THE REGION WHERE APROX1 FAILS 

WHERE JP ANO YP ARE THE DERIVATIVES OF THE BESSEL 
FUNCTIONS OF THE FIRST AND SECOND KINO. RE SPEC T I V EL Y. 
OF ARGUMENT X ANO ETA*X» ETA BETWEEN 0 ANO i. 


REFERENCE HANDBOOK OF MATHEMATICAL FUNCTIONS EOITED BY 

M. A8RAMOWITZ AND I. STEGUM. NATIONAL BUREAU OF 
STANDARDS APPLIED MATHEMATICS SERIES 55 ISSUED JUNE 196* 
METHOD SUBROUTINE APRQX1 USES FORMULA 9.5.31 FROM THE REFERENCE 

TO APPROXIMATE THE NS-TH ZERO OF THE ABOVE EQUATION 
BUT THIS FAILS FOR ETA BELOW .2 . TO CORRECT THIS PROBLEM 
. THIS ROUTINE IS PROVIDED. THE APPROXIMATION TO THE ZERO 
IS FOUND BY QUADRATIC INTERPOLATION USING THE 
APPROXIMATIONS FOR ETA .2 ANO .3 AND THE APPROXIMATION 
FORMULA 9.5.13 OF THE REFERENCE FOR JP(M.X) * 3 WHICH 
CORRESPONDS TO ETA*0. FOR THE FIRST POSITIVE ZERO. THE 
CORRESPONDING ZEROS ARE TABULATED BECAUSE THE 
APPROXIMATION FORMULA ARE POOR FOR THE FUST ZERO. 


INPUT VARIABLE DEFINITION 

RM BESSEL OROER M ANO IS 0 HERE 
•NS THE NS-TH POSITIVE ZERO IS TO BE APPROXIMATED 
ETA HUB TO TIP RATIO. 0 .LT. ETA ,LT. .2 


OUTPUT 


RZ 


APPROXIMATION TO ZERO 


SUBPROGRAMS 


APROX1 


APPROXIMATION FOR ETA.GE. .2 


MTLUP LRC LIBRARY INTERPOLATOR 


DIMENSION X ( 3 ) . Y( 3 I 
OATA X/O . . . 2. . 3 / 

NOETAT-NS 

IF(NOETAT-l) 10. 10.20 

USE EXACT ZEROS FOR NS»1. THE APPROX I MA T ION IS TOO POOR 

10 Y(l» *3. 83 17 » Y 1 2 ) * *.23 57 l Y13> •*.7058 
GO TO 30 


USE APR0X1 FOR ZERO APPROXIMATION AT ETA .2 ANO .3 

20 IFIETA.EQ.O. I GO TO 25 

CALL APR0XHRM,n0ETAT,X(2),Y( 2J } 

CALL APR0Xl(RM.NUETAT.X(3).Y( 31 > 
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c APPLY REFERENCE FORMULA 9.5.13 FOR ETA 0 A NO N-0 

C 

25 BETAP * (NOETAT ♦. 2 51 *3 . 1 A l 59265 

BETAP8 - 8 . ♦ 86 T AP 
TERil --3./BETAP8 
T ERM 2 * 36 . / ( 3 • *8E TAP 3**3> 

TERMS —11318A. /(15.*BETAP3**5) 

T ER1 A « 37A632128./< 105.*BETAP8**7) 

YUI « 8ETAP*fE RM1 *T E R.M2 ♦ TER.M3*TERMA 
C 

30 I F ( £ T A ) A0»AO»5O 
AO R Z * Y ( 1 1 
00 TO 60 
50 l PA « -l 

CALL HTLUP(£TA#RZ<2»3»3»1#1PA»X*YJ 


60 RETJRN 
END 



3.3.3 Subroutine JARRATT 


Purpose: 


Method: 


This subroutine computes a single, real zero of a real valued, 
nonlinear function, i.e., it computes X such that f(X) < e, 
with e a controllably small number. The method is that of 
reference 47. This is an iterative method in which a rational 
function is fitted through previously computed values, giving 
the iteration formula: 

( X n - VlXV X n-2) £ „( f n-r f „- 2 ) 
n + l - X „ + (X n - X n _ l)( f n . 2 - f n) f n _ x +(X n - X n _ 2)( f n - 

where f n is f 

The procedure is as follows: 

1) Set the perturbation value used in step 4. 

2) Initialize the error return (see ERROR subsection of this 
routine description), the iteration counter, and the counter 
used in the subloop of step 4. 

3) Generate the iteration values and corresponding function 
values required in the initial evaluation of the iteration 
formula by equating the first three iterates to the ordered 
triplet of input starting values and computing the function 
values . 

4) Test for equal function values, changing one of them when 
this happens by reevaluation with the argument equal to the 
corresponding iterate plus the perturbation constant from 
step 1. This procedure should be repeated at most three times 
(see ERROR subsection). 
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Usage: 


5) Compute the current iteration value for the zero with the 
iteration formula. 

6) Compute the function value for the argument equal to the 
current iterate. 

7) Test for convergence of iteration by comparing percentage 
difference between new and old iterates with an input 
tolerance or by comparing the function value from step 6 
with an input tolerance, and exit from the algorithm with 
the current iterate when the test is successful. 

8) Compare iteration counter to limit and exit from the 
algorithm when the limit is exceeded, accompanied by an 
error message. 

9) Generate new iteration values and corresponding function 
values, add one to the iteration counter, and start over 
with step U. 

CALLING SEQUENCE 

DIMENSION START ( 3 ) 


CALL JARRATT ( START .MAXITER .TOLITER ,TOLFUN ,FUN .ROOT ,FUNROOT , 
IERJAR ) 


INPUT 


START(3) 

MAXITER 

TOLITER 


an arr,ay of three nonequal starting values for 

the iterates X^, X 2> X^ 

maximum number of iterations allowed 

maximum relative difference between consecutive 
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TOLFUN tolerance on the absolute function value 
FUN the function generator; this must be EXTERNAL 

and of the form FUNCTION FUN (X) 

OUTPUT 

ROOT the value of the zero when TOLITER or TOLFUN 

tolerance is satisfied 

FUNROOT the function value corresponding to ROOT 

ERROR 

IERJAR 

Errors: Upon return, the error return parameter is set as follows: 

IERJAR = 0 successful 

1 the convergence criterion was not satisfied 
within the maximum number of iterations 
allowed 

2 the function appears constant 

Restrictions: START ( 1 ) i START(2) j START(3) 

Timing: The timing is proportional to the number of iterations multi- 

plied by the execution time per call to FUN. Hence, good starting 
values are important to timing. 

Accuracy: The accuracy is set by the input tolerances. 
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n f> c»c-»r*<» r»f»r>r> r i c> «> o <><><> n o <> o n <> n n n o <><> n n o 


SUBROUTINE JARRATT! ST ART, MAXI TER.T OUTER. TOLF UN# F UN # ROOT # F UNROOT , 
IIERJARI 

PURPOSE TO FIND THE ZERO OF A SINGLE REAL VALJ6D FUNCTtON OF 

A REAL VARU8LE BASED UPON JARRATT METHOD 

INPUT VARIABLE DEFINITION 

START AN ARRAY OF THREE STARTING VALUES FOR XERO 

MAXITER MAXIMUM NUMBER OF ITERATIONS USED 
TOLITER RELATIVE -TOLERANCE ON THE CLOSENESS OF TWO 
SUCCESSIVE ITERATES 

TOLFUN TOLERANCE ON SMALLNESS OF FUNCTION VALUE 
FUN EXTERNAL FUNCTION EVALUATOR# WHERE Y = FUNIXI 

OUTPUT ROOT ZER.0 CALCULATED 

FUNROOT FUNCTION VALUE CORRESPONDING TO ROOT 
ERROR RETURN IERJAR » 0 SUCCESSFUL EXECUTION 

1 FAIL TO CONVERGE IN MAXITER ITERATIONS 

2 FUNCTION APPEARS CONSTANT 

REFERENCE P. JARRATT AND 0. NUDOS. THE USE OF RATIONAL FJNCTIONS 

IN THE ITERATIVE SOLUTION OF EQUATIONS ON A DIGITAL 
COMPUTER# THE COMPUTER JOURNAL# APRIL I9to>, VOL. 3# NO. i 


DIMENSION STARTI3) 

C THIS OATA STATEMENT DEFINES SMALLEST NUMBER 

SIGNIFICANTLY ADDING' TO L.O 

DATA SMALL/7. 11E-15/ 

USES HAL * 3. ♦ SMALL 

INITIALIZE ERROR RETURN AND CONSTANT FUNCTION INDICATOR 
AND I TERATION COUNTER 

IERJAR * 0 
I FLA T » 0 
ITER « 0 

SET STARTING FUNCTION VALUES 

XI • START! i) 

X2 • START ( 21 
X 3 • START ( 3 J 
FI * FUNIXI) 

F2 « FUNIX2J 
F 3 « FUN ( X 3 ) 

CHECK FOR EQUAL FUNCTION VALUES# WHEN TWO ARE EQUAL 
PERTURB THE STARTING VALUE AND RE-EVALJATE THE FUNCTION# 
AND DO THIS AT MOST 3 TIMES 

ID I F I fi I.EQ.F2) GO TO 20 
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1FIF1.E0.F3) GO TO 20 
IFiF 2.E0.F3) GO TO 20 
GO TO 50 

20 IFLAT * IFLAT ♦ 1 

1 F ( I FLAT.LT. 3) GO TO 25 
IERJAR « 2 
GO TO 1000 

25 IFiF l.NE. F2) GO TO 30 
X2 » iXl*X2) /USESMAL 
F 2 « FUN ( X2) 

30 IFiF 1.NE.F3) GO TO 35 

X 3 * I X 1 ♦ X 3 ) /USESMAL 
F 3 * FUN i X 3 I 

35 1FIF2.NE.F3) GO TO 53 
X 3 « i X2* X 3 ) /USESMAL 
F3 * FUN ( X 3 ) 

GO TO 23 
53 CONTINUE 

perform jarratt iteration 

X12 • X1-X2 
X 1 3 • XI -X 3 

RG0r*XlMX12*Xl3*Fl*(F2-F3n/iX12*(F3-Fll*F2*X13*tFl-F2j*F3) 
CUNROOT * FUNiROOT) 

CHEtK FOR CONVERGENCE 

IFC A8Si R00T-X1 ).LE. T0LITER*A8S<R00T) )G0 TO 1003 
IFi ABSiFUNROQT J.LE.TOLFUN) GO TO 1000 

CHECK MAX ITERATION 

ITER * ITER*1 
IFi I TER- MAX I TER >60.60.55 
55 IERJAR • I 
GO TO 1000 

UPDATE LIST OF VARIABLE AND FUNCTION VALUES 

60 X 3 • X2 
X2 « XI 

XI » ROOT 
F 3 * F2 

F 2 • FI 

FI • FUNRQOT 

GO TO 10 

COO RETJRN 
ENO 



3.3.1* Subroutine GAUSS 


Purpose: This subroutine computes the definite integral of a complex 

valued function of a single, real variable using either 1*-, 

8-, or 12-point Gaussian integration formulas (formula [25.U.30] 
on page 887 of ref. 30). 

Method: The procedure is as follows: 

1) Obtain the weights for 1*-, 8-, and 12-point Gaussian 
integration. 

2) Compute the half-width and midpoint of the integration 
interval. 

3) Obtain the U-, 8-, and 12-point abscissas. 

U) If U-point integration, go to step 5; 

If 8-point integration, go to step 6; 

If 12-point integration, go to step 7. 

5) Perform U-point Gaussian integration and go to step 8. 

6) Perform 8-point Gaussian integration and go to step 8. 

7) Perform 12-point Gaussian integration. 

8) Change sign if integration was from right to left and 
return . 
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Usage: 


CALLING SEQUENCE 


Timing: 

Accuracy: 


COMPLEX ANS.FUN 
EXTERNAL FUN 


CALL GAUSS(A,B,ANS,FUN ,1NT) 

INPUT 

A lower limit of integral 

B upper limit of integral 

FUN name of the complex function subprogram which calcu- 
lates the integrand 

INT indicator for order of Gaussian integration: 

INT a 1 indicates U point 

2 indicates 8 point 

3 indicates 12 point 

OUTPUT 

ANS the value of the definite integral 
N point — N x time for FUN 

The remainder term for the N-point Gaussian integration 
formula is: 


(B- A) 2 " + V)V " + 1 £ (2N) (e) 


(2N + 1) 


(2N) 


t 
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APPLY GAUSSIAN 
4- POINT FORMULA 
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SU8< OUTI NE GAUSS <A#8# ANS # PACT l NT, I NT) 

C 

COMPLEX ANS# FAC T INT# G 4# G 8 # G 12 » Z I # ZZ 

W 

C 4-# 8-» AND 12-POINT GAUSSIAN WEIGHTING COEFFICIENTS 

A* <■ 

w 

DIMENSION W4I2) #W8<4> ,1412 (6)# Z4(2)#Z8(4I# 2120) 

OATA W4< i).W4(2I.CW8( II # I =1 # 4 ) # C W 12 III # I * 1#6) / . 6 521 4 51 54 862546# 
1.347 85484 5 1374 5 4,. 362 633783 378362#. 31370 664 5 377 3 87# . 22238 1 034 45 337 
14# .101228536290376# .249147345313403#. 2 33492 5 35 5 33 3 55# 

1. 2031674 2672 3066# . 160 078 3 28 54 3 34 6# . 10693 932 59953 18# 
1.047175336386512/ 


y « a 

H * (B-rl/2. 

SGN* SIGN I l.#H) 

H*A3S(H) 

X « Y ♦ H*SGN 

«r 

C 4-POINT A8SCISSAE 


C 


Z4(l )». 3399810435 84 85 6* H 
1412 )«. 861 13631 l 59405 3*H 

8-POINT ABSCISSAE 


Z8(l »«. 1 8343464 24956 5 0*H 
Z 81 2 I *.5 25 53240 991632 9*H 
Z8I 3 )*. 796666 4 7741 36 27*H 
Z8I4 I «. 96028 935 649753 6*H 

r 

C 12-POINT ABSCISSAE 

C 

Z 12( 1)». 1252334085114 69* H 
Z 1 2 ( 2)». 36 78 31 4 98998 l 80 *H 
Z 12( 3)*. 5873179542 86 617*H 
Z 1 21 4)-. 76 99 02 6 74 l 94 3 05 *H 
Z 121 5)*. 9041172 563704 75 *H 
Z12I 6 )-. 98 15606 342467 19*H 

g 

C EVALUATE FUNCTION AND PERFORM WEIGHTED SUM 

C 

GO TO (10# 20# 40 ) l NT 
10 CONTINUE 

G4*H* IW4 ( l)*l FACT INT ( X*Z4< 1 M +FACT I NT ( X- Z4 ( l ) ) 1* 
IW4(2 )*( FACT INTI X+Z4I 2 ) I *F AC TI NT I X- Z4 ( 2 ) III 
G 8*3 4 
GO TO 63 
20 CONTINUE 
G8 * C. 

00 30 I*l#4 
Z 1*F ACTI NT I X+Z 8 1 1 ) ) 
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Z2*FACTINUX-Z8im 
30 G8 = 3 3*W3 ( I ) * ( Zi +Z2) 

G8*38*H 
GO TO 63 
40 CONTINUE 
G12-0 

00 50 1>1>6 

50 G12»G12*W12I I ) * ( FACT I NT I X *1 12 1 1 ) ) *F ACT I NT I X-Z 1 2 1 I) ) ) 

G12=GI2*H 
G3-312 

i 3 CONTINUE 
ANS*G8 

IFIB-A.LT.O. I ANS«-ANS 

RETJRN 

ENO 
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3.3.5 Subroutine GAUSS2 


Purpose: 

Method: 

Usage: 


Storage: 


This subroutine has the same purpose as subroutine GAUSS. It 
is a modification of GAUSS to pass the primary subroutine input 
to FACTINT, FACTIN2, FACTIN3, and FACTIN1+ . 


Same as subroutine GAUSS 


CALLING SEQUENCE 

COMPLEX ANS,FACTIN2 
EXTERNAL FACTIN2 


CALL GAUSS2 ( A , B , INT t ARS ,FACTIN2 ,ARMISC ,MAXDIM ,MAXJ ,AR ) 


INPUT 

A lower limit of integral 

B upper limit of integral 

INT indicator for order of Gaussian integration: 

INT = 1 indicates 4 point 

2 indicates 8 point 

3 indicates 12 point 

FACTIN2 general name for any of the oscillatory factor 
evaluators named in the purpose 
ARMISC, MAXDIM, MAXJ, AR (see FORTRAN dictionary, sec. 2.2) 

OUTPUT 

ANS the value of the definite integral 

513 (octal) 
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Timing; 

Accuracy: 

Flowchart: 


N point — N x time for PACTIN2 
Same as subroutine GAUSS 
See subroutine GAUSS* 



SUBROUTINE GAU5S2(A#B»INT»ANS#FACTIN2#ARHISC,MAXDIN#MAXJ#AR) 


C 

COMPLEX ANS»FACTIN2#G4#G8#G12#Z1»Z2 
DIMENSION AR(MAX0IM#MAXJ,3)#ARHISC( 1) 

C 

C 4-* 8-# ANO 12-POINT GAUSSIAN WEIGHTING COEFFICIENTS 

C 

DIMENSION W4 ( 2 ) , W8 ( 4 ) »W 1 2 ( 6 ) » Z4(2),Z8(4># Z1216) 

OATA W4( l),W4(2),(W8( l)» I * I , 4 » * I W 12 C I) , I - 1 , 6 1 / . 5 521 4 51 5-« 36 2546, 
1.347 854845 13745 4*. 362633 7 83 37 83o2#. 31370 6645877 3 37, . 222 38103445337 
14# . 101228536290376# .24914 70 45313 40 3*. 233 492536533355, 

1. 203 16742672 306 6, . 160078 3 23 54 3346# . 106939325995318, 
1.047175336386512/ 

C 

r « a 

H * IB-rl/2. 

SGN* S IGNI 1 . # H) 

H*A3 SIM) 

X « T ♦ H*SGN 

c 

C 4-POINT ABSCISSAE 

Z4(IJ *.3399810 43 5848564H 
Z4I2 1**86113631 1 5940 5 3* H . 

C 

C 8-POINT ABSCISSAE 

C 

Z8I1I -.18343464 2495650*H 
28(2) *.525 53240991 63 2 9*H 
Z8( 3)». 7966664 774 136 27*H 
Z8(4) «.960289856497536*H 
C 

C 12-POINT ABSCISSAE 

C 

Z 12( 1)*. 1252 33 4085114 69 *H 
Z12I 2 )*. 367831 498998 l 80*H 
Z12( 3 )*. 5873179542866 17*H 
Z 1 2( 4)«.769902674194305*H 
Z 1 2( 5)“. 90 41172 56 3 70 4 75 *H 
Z 1 2< 6 )*. 98 15 60 6 3 42 46 7 19* H 
C 

C EVALUATE FUNCTION AND PERFORM WEIGHTEO SUM 

C 

GO TO <10# 20,40 I INT 
10 CONTINUE 

G4 - H*< W4( 1) * ( FACTIN2 ( X* Z4 ( 1),ARMISC*HAX0IM,MAXJ#AR) 

1 ♦ FAC T IN2 < X— 24 ( 1 ) , ARM I SC # MAXO I M, M A XJ # AR )' ) 

2 ♦ W4( 2 ) ♦ ( FACTIN2(X«-Z4(2),ARMISC,MAX0IM,MAXJ,AR) 

3 ♦ FACTIN2(X-Z4(2)#ARMISC,MAX0IM#MAXJ,AR) ) ) 

G8*34 

GO TO 60 
20 CONTINUE 
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08 « C. 

00 30 1*1*4 

Zl ■ FAC TIN2(X*Z3< I) » AS MI SC »HAXDIM»NAXJ»AR) 

Z2 « FACTIN2<X-Z8( I)* A* M l SC *H AXD I M* N AX J, A R > 

30 G8-38*W3Ui*(Zl^Z2J 

G 8 = 3 8*H 
GO ro 63 
40 CONTINUE 
G 12* 0 

00 50 1*1*6 

■- 0 G 12 * G12 ♦ Wl2(I)*t FACT IN21 X + Z12U ) » ARM I SC * M AX D I i » M AX J , AR > 

1 ♦ FACTTN2tX~Zl2(I)*ARMISC*MAX0IM*MAXJ*AR) ) 

G 12* G 12*H 
G8*3 1 2 

c.0 CONTINUE 
ANS* G 8 

IFI8-A.LT. 0. > ANS—ANS 

RETURN 

END 
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3.3.6 Subroutine BSSLS 


Purpose: 


This subroutine computes values for the first n Bessel functions 
of integer order for the real argument x: J (x), J^(x), . . . , 
J n ( x). 

This subroutine is a modification of the NASA-Langley Research 
Center library subroutine BSSLS (see ref. 43). The restriction 
on the order has been removed from the library routine. The. 
calling sequence has not been changed. The usage of the modified 
routine differs from the library routine in that: 

1) Orders greater than 30 can be used while the error code 
remains equal to 0. 

2) A deck of this modified routine must be loaded with the 
source deck. 

Values produced by this routine for orders up to 100 for argu- 
ments up to 100 were compared with the published tables on 
page 407 of reference 30 and agreed in the first nine signifi- 
cant figures. This represents the justification for the use 
of this modified routine. 
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(Kirmnnnonn 


SUBROUTINE BSSLS <X,F»N,IERR) 


COMPUTES BESSEL FUNCTIONS OF THE FIRST KINO FOR POSITIVE 
REAL ARGUMENT AND INTEGER ORDER 

THIS IS A MOOIFIEO VERSION OF SUBROUTINE BSSLS. THE 
RESTRICTION ON THE 0R0ER#N» HAS BEEN REMOVE 0 FROM THE 
STANOARO LRC LIBRARY VERSION. THE STATEMENTS REMOVED 
FROM THE LRC LIBRARY VERSION HAVE BEEN MADE INTO COMMENT 
STATEMENTS DELIMITTED BY **. THIS WAS OONE ON 
MAY 3* 1973 BY GEORGE A. GRAF OF BCS. 

DIME NS 1 ON F ( 1) 

COMMON/F IX/NPR# NP.NPP 
I ERR *0 
** NMAX * 30 ** 

C ** IFIN.LE.NMAX JGO TO 701 ** 

C ** I ERR * 1 ** 

C ** RETJRN ** 

701 MX-X 

NO. OF FUNCTIONS COMPUTED 
N PP* 3*MX*12*10* ( I ASS ( N-l ) /10> 

I FIX.GT. N) NPP*3.0+X*1 2. 

IF(MOD(NPP»2).EO.O)NPP*NPP>1 
CLEAR COMPUTING AREA 
DO 702 I - 1 # N PP 

702 F ( I ) *0.0 
IFK.NE.O.) GO TO 700 

X-0 
F( II -1.0 
RETJRN 

700 IFIX.GE..1E-6IG0 TO 703 
SMALL VALUES OF X 
C J-2*+N/FACT0RlAL N 

Z-X/2.0 
Fill -1.0 
LPP-NPP-1 
DO 70 A K- i»L PP 

70 A F (K* I >-FIK)*( Z/FLOATI Kl ) 

RETJRN 

C BACKWARD RECURSI ON 

703 NP=NPP*l 
NPR-NPP-1 
F(NP-IJ«. IE-37 
F (N? J -0. 0 

00 1 1 1“ 1/NPR 
NP-NPP-I 
X N*X P 

11 FINP)-2.0*XN/X*F(NP*ll-F(NP»2> 

X N*r C 1 ) 

00 7 I-3/NPP ,1 

7 XN*2 • G*F ( I J*XN 

XN-l . /XN 
UQ 3 I -l » NPP 
F( I) -XN*F( 1 1 

8 C ONT I NUE 
RET.'RN 
END 
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3.3.7 Subroutine BESNX 


Puz’pose: 


Method: 


BESNX computes the Bessel function of the first kind, J n (x), 
for integer order, n, and real argument, x. In fact, if real 
argument, X, and integer order, N, is input, BESNX will 
compute: 

J o (X), J.CX), ...» J N (X) (if N > 0), or 
J Q (x), J_ x (x), ...» J N (X) (if N < 0). 

The step-by-step procedure is as follows: 

Step 1: Determine index, NMAX, to start backward recursion 

from the equations: 

IX = max (5 |x| 1/3 , 10) 

NMAX = max (|n| + IX + 2, |x| + IX + 1) 

where N is the integer order and X is the real argument. For 
discussions of the algorithms used, see references 48 through 51. 

Step 2: Determine overflow and underflow bounds using: 


OVER = 2 


1068 


NMAX 


and UNDER = 2 93 


X 

NMAX 


Step 3: Calculate uncorrected J V (X), K = NMAX, NMAX-1, . . . , 

IV 

1,0 by backward recursion using: 


J K-1 (X > =1r J K (X) - W X) 


wiere Jjjj^tX) = 1 and = 0. When using this recur- 

sion formula, prevent from overflow by using OVER and UNDER. ' 
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Step Calculate the correction relation REL from: 


Usage: 


REL - J Q (X) + 

where N q = [NMAX/2], the largest integer, which is less than 
or equal to NMAX/2. When calculating REL, account for the pre- 
ventive measures (for overflow and underflow) which were taken 
in step 3. 

Step 5: Calculate the corrected J (X) for K = 1,2, . . . , N 

K. 

by dividing the uncorrected values by REL. 

Step 6: In case the argument X is zero, let J q (X) = 1, J^(X) = 
J 2 (X) = . . . = J| K |(X) = 0. 

Step 7: If N < 0, then correct for sign using the equation 
J_ K (X) = (-1) K J R (X). 

CALLING SEQUENCE 

REAL JNX 

DIMENSION JNX ( > |n| + l) 


CALL BESNX (N, X, JNX) 

INPUT 

N integer order of the Bessel function 

X real argument of the Bessel function 
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OUTPUT 


Accuracy: 


JNX array where JNX(l) to JNX(|n| + l) contains the values 
of the Bessel function of the first kind for argument 
X and orders 0 to I, respectively 

On the CDC 6600, the least number of significant figures for 
several ranges of arguments is given below (see refs. U8, 51, 
and 52 ) . 

Range of argument x Least number of 

and index n significant figures 


x = .001(.001).009 

9 

n = 0(1)50 


x = ,0l( .01) .09 

12 

n = 0 ( 1)50 


x = ,l(.l).9 

12 

n = 0(1)50 


x = 1.(1. )9. 

12 

n = 0 ( 1)50 


x = 10 . ( 10 . ) 90 . 

5 

n = 0 ( 1)50 


x = 100 .( 100 .) 900 . 

5 

n = 0 ( 1)50 
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SUBROUTINE BESNXIN.X# JNX ) 


Z PURPOSE 


C 

C INPUT 
C 

: OUTPUT 


c 


EVALUATE THE BESSEL FUNCTION QF THE FUST KINO FOR 
INTEGER OROER AND REAL ARGUMENT * USING THE RECURRENCE 
ALGORITHM OF MILLER AN ARRAY OF BESSEL FUNCTION 
VALUES IS GENERATED. 

VARIA8LE DEFINITION 
N INTEGER 3 ROE R 

X REAL ARGUMENT 

JNX ARRAY QF LENGTH AT LEAST /N/ ♦ l WHERE 

UPON RETJRN JNXC 1) TQ JNXI/N/+1) CONTAIN THE 
BESSEL FUNCTION CORRESPONDING TO ARGUMENT X 
AND ORDERS 0 TO N# RESPECTIVELY 


REAL JN# JNM# JNP.JNX# JX 
DIMENSION JNX I I I 

OATA SML# 810/000014000300000000000# 037767777777 7 777 77777/ 
I FIX ,E0. O.J GO TO 130 

C DETERMINE INDEX TO START BACKWARD RECURSION 

ABSX • A 8 S I X ) 

IABSX » IFIX(ABSX) 

IABSN1 - IA9SIN) ♦ 1 
IFIABSX .IT. 3. > 10# 20 

10 IX « 10 

go to 30 : 

20 IX - 5. ♦IABSX**. 3333333333333331 
30 I FI I ABSX .GE. IA8SN1I GO TO 40 

NMAX > IASSN1 ♦IX-#- 1 
GO ro 50 

40 NMAX « IABSX ♦ I X ♦ l 

C DETERMINE OVERFLOW AND UNDERFLOW CONSTANTS 

50 OVER * (BIG/4.1 ♦ (ABSX/FLOAT (NMAX) I 
UNDER « QVER*SML 

C CALCULATE UNCORRECTEO JNX BY BACKWARD RECURSION 

C AND COMPUTE THE CORRECTION RELATION# REL 

JN - 1. 

JNP - 0. 

REL » 0. 

UA3SN1 * 1ABSN1 
00 i 4C l *l#NMAX 
INDEX « NMAX -1*1 
IFIINOEX .GT. IABSNU 60.70 
60 NDEX « IABSN1 
GO TO 83 

70 NDE< « INDEX 

80 JNM * (2.*FL0AT (INDEX ) / X)*JN - JNP 
JNX! NDEX) « JNM 

C PREVENT FROM OVERFLOW AND UNDERFLOW 

ABSJNM - ABS(JNM) 

If (A8SJNM .LE. OVER) GO TO UO 
JN » JN / OVER 
JNM * JNM / OVER 
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PEL » REL / OVER 
IFUNGEX .GT. I A3SN1 ) GO TO 110 
00 90 II s lNOEX# 1 1 4 35 N 1 
J * II 

JX « JNX (II) 

ABSJNX * ABS ( JX I 

1FIABSJNX .LE. UNDER J Gd TO 100 
90 JNXI I I 1 a JNX { III / OVER 
GO TO 110 

100 I IA3SNI « J - l 
l .0 IFIINOEX .NE. 1) GO TO 120 
REL * REL ♦ JNM 
GO TO 130 

? ; C L * MODI INOEX. 2 I 

I FIL .EQ . 0) GO TO 130 
REL « REL ♦ 2* * JNM 
0 J NP * JN 
JN * JNM 

CALCULATE CORRECTEO JNX 
S MLR EL « S ML * REL 

00 ISC I*1#I 1ABSN1 
MAX « I 

JX a JNX I I ) 

ABSJNX * ABS I J X I 

IFUBSJNX .LE. SMLRELJ GO TO 160 
JNXI II * J NX I I I / REL 

1 F ( I I ABS N 1 .EQ. IA8SN11 GO TO 200 
MAX « IIABSN1 ♦ 1 

00 17C I *MAXi l ABSN1 
JNXI I J « 0. 

GO TO 200 
1< 0 JNXI 1 I » 1. 

00 1 9C I 3 2# I AB S N 1 
' <■ 0 JNXI I J » 0. 

:< IFIM .GE. 01 RETURN 
00 210 I*2#lABSNl,2 
' , JNXI I I « -JNXI I I 
RETJRN 
END 
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3.3.8 Subroutine BESJLA 


Purpose: 


This subroutine evaluates Hankel's asymptotic expansion for 
the Bessel function J^(z), for formulas (9.2.5), (9.2.9), and 
(9.2.10) of reference 30, where K max is the larger of v/2 + 1 
and 3. 


J v ( Z ) = \f~ | P(v,Z) COS X - Q(v,Z) SIN x| 

k max 

P(v,Z)~ y (-l)KlVt2|I 

to (2Z) 


(yi-1) (u-9) + (m- 1) (p-9) (y-25) (p-49) 

2! (8Z) 2 4!(8Z) 4 


*MAX 
Q(v,Z)~ ^ 
K=0 


, n K (u,2K+l) 
(2Z) 2K+1 


_ P-1 (p-l)(u-9)(u-25) , . 

82 3! (8Z) 3 

v+l, 3} 

U = 4v 2 


X * z -(| » + |)" 
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Method: The procedure is as follows: 


1) 

Evaluate m, X, 8Z, and 

(8Z ). 

2) 

Set K 


max 


3) 

Compute the K * 0 term 

for P and Q and initialize P and 


Q to that term. 



k) For each K,K«1, ...,K , compute P and Q 

max 

(recursively) by multiplying the previous term by the 
appropriate factor and accumulate P and Q. 

5) Compute Hankel's asymptotic expression. 

Usage: CALLING SEQUENCE 

CALL BESJLA ( ORD , ARG , BES VAL ) 

INPUT 

ORD nonnegative order 

ARG real positive argument Z 

OUTPUT 

BESVAL value of the expansion 

Restrictions: ORD > 0 

ARG > 0 

Timing: The timing is proportional to the number of arithmetic opera- 

tions which is 8 + 13 K multiplications, 2 + 2 K divisions, 

max * max * 

2 + 2 K additions, and 3 + 6 K subtractions plus time for 
max max 

a call to SQRT. 
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Accuracy: 


The accuracy is of the computer type 


Note: 


The value of BESJLA compares well (five to seven places) with 
the results of subroutines BSSLS (sec. 3.3.6) and BESNX when 
the argument is at least 20 * * ORD. 
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x#o 


' 


CALCULATE 

NMAX 




CALCULATE 

REL 


K=1 


START 



RETURN 













SUBROUTINE BES J LA ( QRD »ARG»8 ES VAU 


PURPOSE COMPUTE HANKELS ASYMPTOTIC EXPANSION FOR LARGE 

ARGUMENT TO THE BESSEL FUNCTION 

INPUT ORO NON-NEGATIVE ORDER 

ARG POSITIVE ARGUMENT 

OUTPUT BESVAL EVALUTION OF HANKELS EXPANSION 

REFERENCE HANDBOOK OF MATHEMATICAL FUNCTION*# 

EDI TE 0 BY M. ABRAHOWITZ AND I. A. STEGUM 

NATIONAL BUREAU OF STANDARDS APPLIED MATHEMATICS SERIED 

NUMBER 55# ISSUED 19t>4» 

SECTION 9.2# FORMULAS 9.2.5* 9.2.9 AND 9.2.10 
BASIC FORMULA VARIABLES 
TEMPI « 4.*0R0*0R0 

TEMP2 « ARG - ( . 5*QRD ♦. 25 )*3. 14159265358979 
T EM? 3 * 8.*ARG 
TEMP4 » TEMP3*TEMP3 

COMPUTE MAXIMUM SUM INOEX 

K MAX * . 5*QR0 ♦ 1. 

I F C KMAX.LT.3 J KNAX-3 

CONFUTE FORMULAS 9.2.9 ANO 9.2.10 

INITIALIZE SUM TO K*Q TERM 

TEMP 5 * 1. 

TEMP 6 * TEMP5 
T EM* 7 « I TEMP 1- 1. I /TE MP3 
TEMP8 « TEMP7 

ACCUMULATE THE SUN IN 9.2.9 AND 9.2.10 GENERATING EACH 
ELEMENT IN THE SUM BY RECURSION 

00 100 K ■ 1 #KN AX 
TEMP 9 » 4. *K 
TEMP 10*2 • *K 

TEMP6 • -TEMP6* ( TEMP l -I T E MP 9- 3. » **2 ) MTENP1-I TEMP9- 1 ,)**2 ) / 
l ( TEMP 10*( TEMP 10-i.)*TEMP4 ) 

TEMP 5 » TEMP5 ♦ TEMP 6 

T EM? 3 » -TEMP 34 (TEMPI-ITEMP9-1. )**2J*CTEMPl-(TENP9+l.)**2> / 

1 I (TEMP10*i.) 4TEMP104TEMP4 J 

TEMP 7 * TEMP7 ♦ TEMP 8 
100 CQNT INUE 

a 

COMPUTE HANKELS APPROXIMATION 


BESVAL « SORT! 2. / (3. 14159265 353979*ARG>! ♦ 
l ( TEMP5*C0SI TEMP2) - TE NP7*S I N I TE MP2 » ) 

RETJRN 

END 
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3.3.9 Subroutine BESIE 


Purpose: 


Method: 


••X 

This subroutine evaluates approximation formulas for I^(x)e . 
The formulas are given in reference 30. For x < 1, formula 
(9.6.7) is used. For 1 < x < A, formula (9.6.52) where 
A = max ( 20 1 £ J , 5 ) * is used. For A < x, formula (9.6) is 
approximated. Formula (9.6.6), I ^(x) = I £ (x), is indirectly- 
used. 


The procedure is as follows: 


l) If ARG <1, calculate: 


BESIEX = 


1 , v lL| -ARG 

— (ARG) 1 1 e 


<| L |>!|2 


L 


and return. 


2) If ARG > max (20 |l|, 5)» to to step 6. 


3) 


Set NMAX = 


(2.5)(ARG) + 1 
( 1.25 ) (ARG) + 1 


if ARG < 50 
if ARG > 50 


4) Calculate J | L | +n (ARG), n ■ 0,1,..., NMAX. 

a) if |L| + NMAX < 100, use BSSLS. 

b) if | L j + NMAX > 100 and ARG > 20 e ,025 ^ L l + NMAX \ 
use BESJLA. 

c) if |L| + NMAX > 100 and ARG > 20 e* 025 ^ L l + NMAX \ 
use BESNX. 


J, , (ARG) 
n! |L|+n 


5 ) Calculate : 


N 


MAX 

BESIEX = e _ARG ^ 
n=0 


and return. 
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6) Calculate : 


Usage: 


Restrictions : 


Accuracy : 


BESIEX 


- — i /i- 

. , — 1/2 l 

V2u (ARG) 


y-l 
8 (ARG) 


(y-l) (yi-9) 
2! (8 ARG) 2 


(y-l) (y-9) (y-25) j 
3! (8 ARG) 3 J 


where u = 4 L 


CALLING SEQUENCE 

COMMON /SCRATCH/BES( 1000) 


CALL BESIE( L ,ARG , BESIEX) 

INPUT 

L the order of the modified Bessel function 

ARG the argument of the function 

OUTPUT 

BESIEX the value of the function 

If ARG < max (20 |l|, 5), then array BES having dimension 3000 
implies |l| + 1.25(ARG) + 2 < 1000. 


The accuracy is of the computer type. 
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SUBROUTINE BESIEIL.ARG.BESIEX) 

C0MMQN/SCRATCH/8ES!10001 
OATA SQRT2PI/2. 50662327*631/ 

LABS - I A 8 S ( L ) 

I F t ARC .G£. 1. > GO TO 30 
l Ft L .HE. 01 GO ra 10 
BESI EX » i. 

BESIEX « BES IEX*EXP(-ARG) 

RETJRN 

BESI EX * ARG/2. 

I F t LABS .EQ. 1 ) BESIEX * 3 ES I E X*EXP(-ARG) 

I F t LABS .EQ. 1 > RETURN 

00 20 I * 2. L A BS 

BESIEX « B£SIEX*ARG / (FLOAT! I)*2.) 

BESIEX = BES IEX+EXPI-ARG > 

RETJRN 

TEMPI * FLOAT! MAXO! 2 G*L A BS . 5 > ) 

IF! ARG .GT. TEMPI ) GO TO 90 

IF! ARG .LE. 50. I NMAX * I F I X ( 2. 5*ARG ) ♦ 1 

IF! ARG .GT. 50. I NMAX * IFIX( 1.25* ARG) ♦ 1 

NMAX * MAXO! NMAX. 101 

LNMAX » LABS ♦ NMAX 

IF! LNMAX .GT. 100 ) GO TO 40 

CALL BSSLS (ARG. BES. LNMAX. IERR) 

GO TO 73 

TEMPI * 20. + E-XP ( .025*LNMAXJ 
IF! ARG .LT. TEMPI I GO TO 60 

00 50 N*LABS. LNMAX 
ORDER « FLOAT(N) 

CALL BESJLA(ORDER,ARG.BE$(N*l J) 

GO TO 70 

CALL 8ESNX! LNMAX, ARG. BES 1 
TEN* 1 » 1. 

P SUM ' BES ( L A8 S ♦ 1) 

OQ 30 N* l.NHAX 

TEMPI » TEMPI*! ARG/FLOAT! NH 
P SUM * PSUM ♦ TEMP1*BES ( LABS *N ♦ 1> 

BESIEX * P SUM* E XP( -AR GJ 
RETJRN 

TEMPI ■ 1. / (S0RT2PI *SORT!ARGJ» 

1 tKP 2 - ( 4.*! FLOAT ( LABS 1**2 )-!.»/ !8.*ARG) 

TEMP 3 * TE MP 2* I 4.*! FL 0 A T( L A BS I **2 ) - 9, ) / (16.*ARG> 
TEMP 4 • T EMP 3* ( 4,*( FLO A T ( L A BS I **2 J - 25. ) /<2t.*ARG) 
BESIEX » TEMPI*! 1. - TEMP2 *■ TEMP3 - TE MP4 > 

RETJRN 

END 



3.3.10 Subroutine BESIK 


Purpose : * 


Method: 


Usage: 


This subroutine evaluates the modified Bessel functions Ip, 

1^, ^o* ^1 f ° r a reaJ - argu™ 6 ^* 

The procedure is as follows: 

1) Set the error code and return when the argument is not 
positive. 

2) Compute Ip(x) using formulas (9.8.1) and (9.8.2) of ref- 
erence 30 when x < 3.75 and x > 3.75, respectively. 

3) Compute I^x) using formulas (9.8.3) and (9.8.U) of ref- 
erence 30 when x < 3.75 and > 3.75, respectively. 

U) Compute K q (x) using formulas (9.8.5) and 9.8.6) of ref- 
erence 30 when x < 2 and x > 2, respectively. 

5) Compute using formulas (9.8.7) and (9.8.8) of reference 
30 when x < 2 and x > 2, respectively. 

CALLING SEQUENCE 

CALL BESIK(X,IFCN ,BESI0 ,BESI1,BESK0 ,BESK1,IERR) 

INPUT 

X positive argument 

IFCN = 1 to compute Ip 

2 to compute 1^ 

3 to compute Ip, Kp 

4 to compute 1^, 

5 to compute Ip, 1^, K Q , K 1 • 
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OUTPUT 


Error Return: 


Timing: 


Accuracy : 


BESIO I 
BESI1 I 
BESKO K q 
BESK1 K ± 
IERR 


depending on IFCN above 


IERR = 0 unless x < 0 and then IERR = 1 and no computations 
are made. 


The timing is approximately equal to twice the time for 7 
additions and 10 multiplies. 

The accuracy is of the algorithmic type and, in particular, 
according to reference 30, the maximum error in using the 
above polynomial approximations is less than 2.2 x 10 . 
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c 


SUBROUTINE BESIK (X.1FCN, BES 13 , BE S 11* BESKO# 8ES K l# IER R ) 


C PURPOSE COMPUTE THE MOOIFIEO BESSEL FUNCTIONS I AND K OF ORDERS 

C 0 AND 1 USING POLYNOMIAL APPROXIMATIONS FROM REF. 

C REFERENCE M. ABRAMOWITZ ANO I. A. STEGUM, HANBQOK OF MATHEMATICAL 

Z FUNCTIONS* NATIONAL BUREAU OF STANDARDS APPLIED 

C MATHEMATICS SERIES 55 


CHECK THE ARGUMENT 

I ERR * 0 

I F ( X ) 10*10*20 
10 I ERR « l 
GO TO 1300 

20 IF< IFCN.EQ. 2 I GO TO 100 
I F ( IFCN.EQ. 5 I GO TO 100 
I F ( X.GT. 3.75 ) GO TO 50 

COMPUTE I FOR ORDER 0 AND ARGUMENT AT MOST 3.75 
USING FORMULA 9.8.1 OF REF. 

T * X/3.75 
T 2 - T *T 

BESIO « 1 . *T 2* ( 3. 5156229* T2*I 3.G899*2**T2* ( 1. 20i7*92*T2* ( .2659732 
1 *72*1.0360763 *T2* .00*5813) >>> > 

GO TO 100 

COMPUTE I FOR OROER 0 AND ARGUMENT AT LEAST 3.75 
USING FORMULA 9.8.2 OF REF. 

50 Ti » 3.75/X 

BESIO - .3989*228 ♦ T 1*( . 01 326392 ♦ T l* ( . 0C22 53 1 9*T 1 * I -. 00 1 57565 
1 ♦ T 1* < .0091 6231* Tl*<-. 020 57?Go*T 1*1 .02635537 *T 1* I -. 0 lo*7&33 
2*T l* .00392377) )))))) 

BESIO • BESI0*EXP(X) /SORT IX) 

ICO 1 F I IFCN.EQ. 1 ) GO TO 200 
IFI IFCN.EQ.* ) GO TO 200 
IFC X.GT. 3. 75 ) GO TO 150 

COMPUTE I FOR ORDER 1 AND ARGUMENT AT MOST 3.75 
USING FORMULA 9.3.3 CF REF. 

T - X/3.75 

T 2 « T *T 

8ES11 • .5 *T2* ( . 3739C57 1 . ♦ T2 • I . 5 1 «. 933o9 ♦ T 2* ( . 1 5C. i •. 93* 

1 *T2*I. 02658733 » T2 * « . 0C301 532 *T2*. 3032*11 ))))) 

8 E SI 1 « BE S l 1*X 
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GO TO 200 
C 

Z COMPUTE I FOR ORDER 1 AMD ARGUMENT AT LEAST 3.75 

C USING FORMULA 9.8.4 OF REF 

C 

150 T 1 * 3.75/X 

B6SI 1 * .39394228 + T 1 *( -. 03 93 602 4 +T1 * ( - . 003620 l 8 ♦ T 1* ( . 00 16 380 1 

1 ♦ T 1*( -.01031555+T 1 *( .02232967 +T l*( - .0289531 2 + XI* ( . C 1 78 7654 

2 ♦Tl*(-. 00420059}) ) >m I 
BESI 1 * BESI 1* E XP ( X) /SORT (X) 

C 

200 I F ( IFCN.LT.4) GO TO 1000 
IF< IFCN.EQ. 5) GO TO 300 
IF! X.GT.2. ) GO TO 2 50 


C 

A 

c 


c 

A 

c 

c 


c 


c 

c 

c 

c 


COMPUTE K FOR ORDER 1 AND ARGUMENT AT MOST 2. 

USING REF. FORMULA 9.8.5 

X2 « .25*X*X 

BES< 0 —.57721566 ♦ X 2* ( . 42 27 842 0+X2*( . 2 3C69756 + X2 * I . 03 48 8590 
1 +X2*(. 00262698+ X 2* ( .0001C750+X2* .00000740 >>))) 

B ES< 0 « -AL0G1 X*.5)*3 ESIO ♦ 3ESK0 
GO TO 300 


COMPUTE K FOR OROER 1 ANO ARGUMENT AT LEAST 2. 

USING 

« 


250 X2 « 2./X 

B ES< 0 « 1.25331414 ♦ X2* (-. 078323 58 +X2+ (. 021895 68+ X2* (-. 0 1062446 
1 + X2+( .00587872 + X2 + ( -. 00 25 1 5 40+X2+. 000 5320 3 > ) ) )) 

BES< 0 « BESKO*EXP(-X) /S9RT( XI 

300 I F ( I FCN.E0.4) GO TO 1000 
l F ( X.GT. 2.1 GO TO 3 50 

COMPUTE K FOR ORDER 1 AND ARGUMENT AT MOST 2 
USING REF FORMULA 9.8.7 

X2 • ,25*X *X 

B ES< 1 ■ 1.+X2M. 15443144 +X2* (-.67278579 + X2+ (-. 1 81 56897 
1 +X2M-.01919402+X2* (-.00110404 +X2* ( -. 000 04686 >>» ) ) I 

BES< 1 * ALQG(X*.5)*8ESll + BESK1/X 
GO TO 1Q00 


C COMPUTE K FOR OROER 1 ANO ARGUMENT AT LEAST 2. 

C USING REF. FORMULA 9.8.8 

C 

330 X 2 » 2./X 

8 ES< l ■ i. 25 33 1414«-X2*(.2 3498bl9+X24(-.03655623 + X2*( .01504268 
l + X2 + ( -.00730253 + X2M . GC3 25 o l X 2* (-.00068245)))))) 

BES< 1 ■ 8ESK1*EXP(-X) /S ORT « XI 


1000 RETJRN 
ENO 
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3.3.11 Subroutine ROCABES 


Purpose: 


Discussion: 


Method: 


ROCABES computes the Bessel functions of the first and 
second kinds for real order and complex argument. 

This subroutine returns a table of |n| +1 values of these 
Bessel functions of the first and second kinds for complex 
arguments and real orders where N is a user-assigned parameter. 
ROCABES is a modification of subroutine NYU BESU (see ref. 53), 
including a change from complex order to read order. 

The method is the same as that of reference 8 but modified for 
real order. Let the Bessel functions of the first and second 
kinds be J^(z) and Y y (z) where the argument isz = x+iy, 
and the order W is real. For W > 0, define N = [w] (the greatest 
integer less than or equal to W), a = W - N, and the orders 

W = a+n , n = 0,1,. ... , N , 

and for W < 0, define N = [Wj+l, a = W - N, and the orders 

W = a+n , n = 0 ,- 1 ,...., - |n|. 

The Bessel functions J^(z) and Y^(z) are computed for all orders 
as defined above. 

The results are stored in the following arrays : BJRE contains 
the real part of J y (z); BJIM contains the imaginary part of 
J w (z); YRE contains the real part of Y^(z); and YIM contains 
the imaginary part of Y^(z) as follows: 
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Usage: 



N>0 

N<0 

BJRE(l) 

^ J (a*o) (z) 

BeJ (a + o) <z) 

BJRE(2) 

• 

Ee J (<rH) (z) 

• 

Be J (a*l) (z) 

• 

• 

• 

• 

BJRE(N+1) 

• 

Ee J (a+N) <Z> 

• 

Re J (a*|N|) (z) 

and similarly 

for the arrays BJIM, 

YRE, and YIM. 


CALLING SEQUENCE 

DIMENSION BJRE(K) ,BJIM(K) ,YRE( |N| +1) ,YIM( |n|+ 1) 
where: K = max (|z| + 25, |n| + 15) 

CALL ROCABES (X,Y,ALPHA,N,BJRE,BJIM,YRE,YIM) 


INPUT 


X the real part of the argument z 

Y the imaginary part of the argument z 

ALPHA the fractional part of the real part of the 
order W 

N the integral part of the real order W and 

| N | + 1 is the number of values computed 

OUTPUT 


BJRE ' 
BJIM 
YRE 
YIM 


as defined above 
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Storage: 


SUBPROGRAMS 

CALLED 


ALGAMF; see reference 5** 


Note that ROCABES uses the following subroutines of its 
own: MBEGIN , MJ RECUR , MJSUM, MFACTOR , MCOMLOG , MCOMEXP, 
MJNORM, MYSUM, MY GNU , MYZERO , MWRONSK, MNEGN, MYRECUR, 
MYGNUP , MYSUMP 


2455 octal, which includes all subroutines listed above under 
SUBPROGRAMS CALLED except ALGAMF 
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SU8R0UTINER0CA8ESI X# Y » ALPHA »N»8JRE»BJIH»YRE»YIH) 

0 I ME MS I ON BJRE l l)#BJim 1 > »YRE (II. YlfMlJ 
CALLM8EGIN<X#Y#N#K,R) 

C ALL MJRECURI X# Y# ALPHA #K#R #B JR E#8 J IM) 

CALLMJSUNI ALPHA.K.8JRE#8 J IM # S UMR A , SUN I A> 
CALLMFACTQR<X.Y#ALPHA#a#«) 

CALLMJNOftM(K#0» R#5UMRA,SUMl A. BJRE.BJtM) 

7 CALLMYSUN(X«Y,ALPHA.K#8JPE#8J I M. A SUMR# AS UM I > 

8 CALL MY GNU I X» Y . ALPHA, 0 »R# A SUMR # A SUM I # 8 JRE # 8 J IM# YR E » Y 1 H) 

9 C ALL MWRONSK IX# Y»BJRE»BJI M# YRE»YIM) 

BJSQ«BJREtl)**2 + BJINm**2 

1 F( 3 4 SO- • 5 E- 14 ) 14# l 4 » l 5 

14 CALL MYSUMP(X#Y# ALPHA, K. 3 JRE #8 J l M» ASUMR # ASUHl ) 

CALL NY GNU PI X#Y# ALPHA# 0#R»ASUMR#ASUHI#8JRE»8JIIi»YRE#YtM> 
15 IF ( N-l) IG» 12# 1 1 

10 IF ( N)13# 12# 12 

13 C ALL MNEGNI X#Y# ALPHA# N#3JRE*BJ IN# Y RE * Y I M ) 

GO TO 12 

11 CALL NYRECURI X. Y #N,B JR E# B J IM, Y RE » Y I Ml 
12 RETURN 
ENO 


S U8R OUT I NEM8EGI?IIX#Y#N»K#R) 
S SO* X+X + Y + Y 
<TEN*SQST I SSO) «• 20.0 
NTEN«lA3SIN)*lO 
M*MAXCUTEN.NTEN)/2 
K«2*M-»i 
R»K*i 
RETJRN 
ENO 


SU8R OUT I NEMJRECUR(X»Y»ALPHA»i\#R#8JRE»BJM> 
0 I ME NS l ON 8 JRE ( 1 ) #8 J I MI 1 ) 

R ALPHA«R*ALPHA 
S SO* X*X*Y*Y 
B JRE ( K*2 1*0. 

B J IN < K*2 J *0. 

8JRE(K»U-1.0E-37 
8JIM(K>1)*0.0 
T X*2 . AX/SSO 
TY-2.*Y/SS0 
D 041 «1,K 
L i*< ♦ 1- I 

RALPHA»RALPHA-l .0 
A «R4 L PH4*T X 
8— RALPHA*TY 


B E S 400 30 


BE $400 70 


8ES40100 
BES401 10 


B E S 401 50 
8 E S 401 60 

8ES401 80 
BES401 90 
BE S 402 00 
BES402 10 


BE S 402 80 
BE S 403 00 


8 E $ 403 50 

8 E S 403 70 
BES4 330 
8 E S 403 90 
8 E S 404 00 


BES404 10 
8ES40420 
8 E S 404 30 



nnnn 


BJRE ( L 1 1 -« A*8JR£(H+i >>-<8*BJ 1H(LI*1))-B JR£(L1*2) 
4 B JIULl) *1 8*BJREtLi*l >1 *( A*BJ IM(L1*1))-B J IH(LU2I 

RETJRN 
EN3 


BES404&0 
BES 404 70 
B E S 404 80 


SUB10UTI NEMJ SUN (ALPHA ,< , B JR E » B J I N, SUHR A# SUM A I 
DIMENSION BJRE( l),BJIKil) 

801 SUMR A = B J R E (3 )* ( ALP HA >2.0 I 
S UMl A* (ALPHA+2. 0) *B J 1 M( 3 ) 

GRE* l .0 
G I M* 0 . 

S*I. 0 

D061 *5,K,2 
S-S* 1.0 

GREN-GREM ALPHA «-S- 1.0)/ S 
GIM*GIM*( ALPHA* S-1.0J /S 
GRE* OPEN 

ALPTS*ALPHA*2.0*S 
G JR* GRE*8JRE < I ) 

GJI»G1M*B J IM( I J 
GJRI *GRE*B J I M ( I ) 

GJU«GIM*3 JRE< I ) 

SUMRB-ALPTS*(GJR-GJI ) *SUMRA 
SUNI B*4LPTS*(GJ IR*GJRI)»SUMIA 


BES 405 50 
8ES40560 
BES <*05 70 
BES **05 80 
BES 40590 


BES 40620 
BES 406 30 
BES 40640 
8 6 S 406 50 
BES 40660 
BES40670 


THE FOLLOWING STATEMENT IS ADDED TO COMPENSATE THE OEFFICIENCY 
FOUNO IN THE PURE IMAGINARY CASE 


I FCSUMRA} 19,21,19 

19 I FIA85I ( SUMRB/SUMRA)- 1.0» -. 5E-14) 21,21,10 

21 I F(SUMI A1 20, 11, 20 8ES40710 

20 IFUBS<(SUMIB/SUMIA)-1.0 J-. 5E-l4» 11*11,10 

10 SUMRA-SUMRB BES40730 

6 SUMI A*SUMl B 8 ES 407 40 

11 RETJRN BES 407 50 

END BES40760 


SUBROUTINEMFACTOR(X, Y, ALP HA, 3 ,R) 

CALL ALGAMF( AL P HA* 1. 0,0 . , U, V) 

CALL MCOMLOGIX, V, A 1,8 l J 

A 2*4 L PHA*A 1 

B 2 a A L PHA*B 1 

A2— A2 

B2—82 

C ALL MCOMEXPI A2, 8 2, A 3, 83) 

4***. 6^314? 13 Oe*ALPH4 
CALL MCOMEXPl A 4,0., A 5, 85 J 
A6*& 3*45-33*85 
B 6*3 3*A5*A 3*85 
CALC MCOMEXP(U, V, 47,8 7 I 


BES40300 


BES 40830 
BES 408 40 
BES 406 50 
8 ES40660 

BES 40390 
B ES40900 
BES409 10 
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Q«A5*A7- 86*87 

BES40920 

R«86*A7* 46*87 

BE S 409 30 

RETJRN 

BES40940 

EN3 

B E S 409 50 




SUB? OUT l NEMCONLOGt X. Y » A » B ) 

8 E S 409 80 



P I *3 • 141592654 

BE S 409 90 



A-.5*AlOG(X*X<-r*Y) 




IFIXJ 5»l»4 

BES41010 

1 


B *.5 *PI 

8 E S 410 20 



IF<Y i 2#3»8 

BES41030 

2 


B— 3 

B E S 4 10 40 



GO ro 3 

BES410 50 

3 


8-0. 

B E S 4 10 60 



GO TO 3 

8 E S 410 70 


4 

b-atanty/x i 




GO TO 8 

B E S 410 90 


5 

B-ATAMY/X) 




IF(Y 5 6»7 » 7 

BES411 10 

6 


B-B-PI 

BES41120 



GO TO 8 

B E S 411 30 

7 


B«8*Pl 

BES41140 

8 


RETJRN 

BES411 50 



EN3 

B E S 411 oO 



• 

SUB? OUTI NE MCOME XP( X» Y#A» 8 1 

8ES4U80 



C«EXP<XJ 




A-C*CCS( Y ) 




B«C*S1N( Y) 




RETJRN 

B ES 412 20 



EN3 

B ES 412 30 



SU8R0UTINEMJNQRM(K#3. R, SUMRA, sum A»BJRE,B JIN) 
0 I ME NS I ON BJRE « 1) »BJ 1 Mil) 

BES41250 


S-U SUMRA+BJRE 1 1) >*Q) -( < SUUA+BJim 1))*R ) 

8ES41270 


T-({ SUM! AfBJIMt 1))*Q) ♦< (SUMRA4BJRE(l))*R) 
IF(A8S(S)-A8SCT1) 100#101»10l 

BES412 JO 

101 

TS-T/S 

TSSO«S*< l.*<TS*TS>» 

8ES41300 

12 

0013 I «l»K 

B E S 4 1 3 20 


BJR£N«(BJRE( 1) ♦ 8 J I Ml ! )*TS )/ TS SQ 

BES4i330 


B JIM C 1) - (8 J!M( I l-BJRE t ( I ♦ TS > / TSSO 

BES41340 

13 

8 JRE ( t ) - 8 J RE N 

B ES 413 50 


GO TO 14 

BES41360 

100 

ST-S /T 

STS3-T*((ST*STl-l.) 

B E S 413 70 

102 

0 013 3 1 * 1 

3ES413S0 


BJREN*(3JRE( I)*ST + 8JIM( 1 ) t/STSQ 

BE S41400 


B JH U)«l BJIM( I )*ST-3 JRE ( I) J/STSO 

3 E S 4 14 1 0 
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103 8 JRE ( l ) *8 J RE N 

14 RETJRN 
EN3 


BES41420 
BES41430 
B E S 4 14 40 


SUBROUTlNEMYSUM(X»Y#ALPHA»K»B JRE# BJ IM# ASUMR# A SUM I ) 
0 INENSION BJRE (1)#8J I M< 1 ) 

Al«4LPHA-1.0 
A2*4 1-1.0 
A 3*4 1 ♦AL PH A 
GAMRE*-(2.C*ALPHA)/A1 
GAHIN«0. 

ASUNR*G4MRE*BJRE(3) 

ASUi I *G4MRE*BJ I M(3 ) 

T-l.O 

DO 500 I *5#K#2 
T *T> l .0 
B1«2.C*T 
F 1 *3 1 *AL PH A 
F 2*4 3+T 
F 3*4 1*T 
F 5«T-ALPHA 
F6-42 + 81 
G1*F 1*F2 
H 1*3 i*F 3 
P l*F 5*F6 
CRE«H1/(PI»T) 

TEMP *-CRE*GANRE 
GAHI N*-CRE*G4NIM 
GAHR E*TEHP 

BSU1R*GANRE*BJREU )-GAMI M*8 JI M< 1) ♦ASUMR 
B SUM 1 *GAM I M*B J R E < I ) «■& AMR E *8 J I M( £ ) ♦A SUM I 
IFU8SKBSUMR/ A SUMR) - 1. 0 ) 5E-14) 52 l# 52 l #510 
521 1 F ( A SUM I ) 520# 5 1 1#520 

520 1 F(ABSC < B5UM1/ASUMI1 — 1.01 — • 5E— 1**> 51i#5il»5lO 

510 A SUM R *3S UMR 
500 ASUM 1 *8SUM1 

511 RETJRN 

ENO 


B E S 4 14 80 
B E S 414 90 
B E S 4 15 00 


BES415 80 
BES41590 
BES 41600 
BES416 10 
BES41620 
BES41630 
BE S 4 16 40 
B E S 4 16 50 
BES41660 


BES41780 

BES41790 

BES41800 

BES41820 

8ES41840 
BES418 50 
BES'1860 
BES 4 1870 


SUBRQUTINEMYGNU(X»Y#ALPHA«Q#R»ASUMR#A$UMI»BJRE»3JI,M»YRE» Y IM) 
DIMENSION 8JRE ( l)»BJ I M< 1 ) »YRE ( 11# Y I « « 1 » 

Pl«3 .141592654 
TPI-2.0/PI 
ORE-TPI*! Q*0-R*R) 

3 IH» T P I *2 . 0 4Q*R 
ORE* ORE* A SU^R--0 IM* A5U MI 
0 IM* OM*ASUMR#QRE«Aj j:-.l 
1FIALPHA) 1# 3# 1 

3 CALL MYZESU(X»Y# ALPRE* ALPI M) 

GO TO 720 


8ES41910 

BES41920 

8ES41940 

3ES41950 

3ES419O0 

BES41990 

8ES42000 
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1 PALPHA-PI4ALPHA 86 S 420 1 0 

COX-CCSI PALPHA) 

SIX*SIN(PALPHAJ 
E RE* C OX/ S I X 
ABS3 3*2.0*ALPH A*ALPHA 
ALPRE*ERE-(ORE* ALPHA/A3SQ3) 

ALPJ H*-Ol M*ALPHA /A3S 03 

723 YRE( l J»AlPRE*8JREm-AlPIH*BJ !M( n*ORE 8ES42140 

Y IH( U«ALPIH*8JRE( 1) ♦ALPRE*8J IMCD^OIH BES421 50 

RETJRN 8ES42160 

END 8ES421 70 


SUB30UTINENYZ£R0(X,Y, ALPRE» ALPIM} 
TPl«2.0/3. 14 159 2o54 
CALL MCOMLOG<X>Y*A#B» 

ALPRE-TPI+I-. U 593151 57* A I 
ALPl M*TP l *B 
RETJRN 
END 


86S421 90 
8 ES 422 00 
BES 422 10 
B E S 422 20 
BES422 30 
BES 422 40 
BES 422 50 


SUB3OUTINEMWR0NSK(X#Y»9JRE»BJIM»YRE*YIHI BES42270 

DIMENSION 8 J RE ( 1 ) > B J I M( 1>,YRE (1).YIM(H 
S SQ* X *X» Y* Y 
TPI*2.0/3. 141592654 
A ZRE • TP I * X / S SO 
AZIN«~TPI*Y/SSQ 

ZRE«RJRE( Zl*YRE < ll-BJ IK 2 »♦ Yl MU» 

ZIM*BJIM(2)*YRE ( l ) ♦B J RE ( 2 )* YI M ( l ) 

B ZRE * ZRE -A ZRE 
BZIN*Z1M-AZIM 

BJS3*BJRE( 1) *8 J RE t 1 ) ♦ B J I M ( 1 ) • B J I M ( 1) 

CZR6-BJREI 1) /3JS0 BES42380 

C ZIl *-8 J I H ( 1J/BJSQ 

YRE( 2)»BZRE*CZR£-8ZIM*CZIM BES424C0 

Y ! Ml 21=8ZIM*CZRE*BZR6*CZIM BES 424 10 

RETJRN BES42<20 

ENJ ' BES 424 30 


BES 42300 
BES 423 10 
B ES 423 20 
B ES 423 30 
BES 423 40 
BES42350 
BES 423 60 


SU830UTINENNEGN(X,Y#ALPHA»N#3 JRE,BJIN»YR E-YIN) 
DIMENSION 8 JRE ( 1 Is 8 J I Ml 1 ) »YR£ (DsYIMIl) 
L-lABSCNI+l 
SSO* X*X*Y*Y 

rx»2.*x/sso 

TY*2 . 4Y/SS0 
R ALPHA-ALPHA 
A *RA L PHA * T X 
B*-R ALPHA * TY 

BJRE 12) -A* 8 JRE I l)-B*8 JIM! 1I-8JREI2) 

3 JIM I 2J-B*BJRE < 1)*A*3 JIM< II -3 JIM< 2 ) 


BES425 10 


BES 425 40 
B E S 425 50 
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VRE« 2 )»A*YREtl )-8*YIM<l >-YRE< 2) 

Y INC 2 l-3*YREU > ♦A*YIM{1)-YI HI 2) 

00 1 1«3#L 
RALPHA-RALPHA-1.0 
A *R A L PHA * T X 
B--R ALPHA*TY 

3 JRE I I)»A*BJRE( 1-1>-B*BJIM( I-l)-B JREI 1-2) 
8 JIM I l)»B*BJREl I-1>*A*8JIHI l-U-BJIMU-2) 
YREt I )-A*YRE(I- 1)-B*Y !M( 1-1 )-YREI 1-21 
i yihc n*a*YREii-n*A*Y m i-d-yimi 1-2 > 
RETJRN 
EN3 


BE S 425 60 
B E S 425 7 0 
8ES425 30 
B E S 425 90 


BES42620 
B E S 426 30 
B E S 426 <*0 
B ES 426 50 
B E S 4 26 6 0 
8ES42670 


SUBROUTl NEMYRECURI X#Y#N.BJRE# BJ1M.YRE. Yf Ml 
0 1 ME NS l ON BJR6 ( 1>#8J I M<1» #YRE { U » Y I M ( l) 

SSQ* X*X* Y*Y 
TPI-2. 0/3. 141592654 
AZRE -TPI *X/SSO 
AZIM--TPl*Y/SSQ 
L »IA BS (N) ♦ 1 
00 l I»3#L 

ZRE-BJREI I )*YRE U-l)-BJIMtl)*YIMU-l) 
ZIH-BJIM1 1 )*YRE (l-D+'BJRE (1 )* Y I H ( l-l) 
3ZRE-ZRE-AZRE 
BZIN-ZIM-AZIM 

BJSQ-BJREl 1-1)*BJRE( l-l)*8JlN(!-l)*BJIMC I-ll 
C ZRE ■ B JRE ( I-D/BJSQ 
CZIN— BJIMU-l) /BJSO 
YRE< l )«8 2R£*CZRE-8Z!M*CZIH 
1 YIM( I )»8ZIM*CZRE*8ZRE*C2!M 
RETJRN 
ENO 


B ES 426 90 


BES42720 
B E S 427 3 0 
BES427 40 

BES42760 
BES42770 
B E S 427 90 
B £ S 427 90 
BES42800 

B E S 428 20 

BES42840 
BES428 50 
B E S 428 60 
BES42870 


S U8R OUT INEMYGMUP(X#Y» ALPHA# 0# R# ASUMR, A SUM I ,B JRE# B J I M, YRE , Y I M ) 
0 I ME NS I ON BJRE( 1)#BJIM(1)#YRE(1)*YIM(1) 

PI-3.141592654 
TPI* 2.0/P I 
QRE-TPl* ( Q*0-R*R) 

0 I M» T P I *2 . Q*Q*R 
ORE-OREAASUMR-O IM*ASUMl 
D IM-OIM*ASUMR*QR£*ASUMl 
IFUIPHA) 1 # 3# 1 

3 CALLMYZERQIX.Y# ALPRE# ALP 1 M) 

GO TO 720 

1 P ALPHA-Pl*ALPHA 

COX*CCS< PALPHA ) 

S IX* S INI P ALPHA ) 

E RE* C OX/ S I X 

A8S0 3 -2.0* ALPHA* ALPHA 

ALPR E -ERE -1 ORE* ALPHA / A3S 0 3) 


BES42910 

BES42920 

BES42940 
8 E S 429 50 
B E c 429 60 

BES42990 

BES43000 

BES43010 
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AtPI H— 0IM*ALPHA/ABS03 

720 TRE* AIPRE*8JRE( 2> - AL P 1N*8 J l H< 2)«-0RE BES43140 

TIM»ALPiN*8JRE(2>*ALPR£*BJIH<2l*0lH BE S 431 50 

SSO* X*X*Y*Y 
ALPTE — < Q*X*RAY l/SSO 
ALPI H»-IX*R-0*Y ) /SSO 

YRE< 2>*41PRE*8JRE{1)-AIP IN*BJIN<1)«-TRE BES4 3180 

Y IM( 2 l-ALPIN*BJRE( 1) ♦ ALPREABJ I M I 1 ) *T l N B ESA 31 90 

RETURN BES432C0 

END 8ES432 10 


SUBROUriNEMYSUMP(X#Y# ALPHA# K, 8 JR E » B J I H# A SUMR, ASUHl ) 
0 I ME NS I ON BJRE( 1 > « B J I Ml 1 ) 

A1«4LPHA-1.0 
A2-4 1-1.0 
A3-A l+ALPH A 
ABSO -A1*A1 

R0L3RE-~Al*l 2.0* ALPHA 1/4850 
R0L3 IM-O. 

RESI--R0LDRE/2.0 
VMSl *0* 

SSO* X*X* Y * Y 

STORE-3. * A L P HA * X /SSO 

STQI H*-3. YALPHA+Y/SSO 

RES2* (ROLDRE^STORE-ROLOI H*S TO IN) 

VMS2 »(ROLOR£YSTOIN4RQLOIM*STQREJ 
ASUMR-RES1*BJRE (2) 

ASUNR»ASUNR+RES2*BJRE ( 3 J - VMS2 *8 J 1 HI 3) 

A SU1 I*RES1*8JIM(21 

ASU1 l-ASUMI*VMS2*8JRE <3 3 «-RE S2 *B J I Ml 3 J 
T-1.0 

DO 500 1 -3#K»2 
T -T* 1 .0 
81-2. C*T 
F 1 *3 l ♦ AL PH A 
F 2-A 3*T 
F3«4l*T 

F 5-T -ALPHA ' 

F 6*4 2 ♦ B l 
G1-FI+F2 
H l*G l *F3 
P 1»F 5*Fb 
CRE»Hl/< Pl*T) 

TEMP--CREYROLORE 

RNEWIK»-CRE*R01DIH 

RNE^RF-TF««> 

RESi MRJ LOSE -RNEWRE) t 2.Z 
VNSl • <ROlDIM-RNE*I N) / >. 0 
RES2-(RN€WRE*ST0R6-RNEWIM*ST01M» 
VMS2-(RNEWRE*ST01N*RNE4IM*ST0RE) 

BSUiR«RESi*8JRE ( !♦!! -VIS l *B Jl Ml l ♦ 1 1 ♦ ASUHR 


BES432 50 
BES43260 
BES43270 


8ES43330 


BES433 70 
8ES43380 

BES434G0 

BES43420 
BES43430 
BES43440 
B E S 434 50 
BES43460 
8 E S 434 70 
B E S 434 80 
8 E S 43' 90 
B ES 435 00 
8ES43510 


B ES 436 30 
3 ES 43b 4 3 
3 E S 43b 50 
B E S 43b 60 
B ES 436 70 
8 E S 436 80 
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BSU.1 1 «V1S 1*8 JRE { I + 1)*RES1*BJIM< I + 1)+ASUM 
BSU1R*RES2*B JRE < I >2) - VIS 2 *8 J l M< 1 + 21 ♦ S SUNR 
8SU'U«VMS2*3 JRE (1 *2) ♦ RcS2 *8 JI Ml l *2 > «-8SUM I 
IFU8SH8SUMR/ASUMR)-1.0)-. 5E-14) 521*521*510 
521 IFIASUM 1)52 0*511*520 
520 IF(A8SUBSUMl/ASUM>-1.0»-.5E-l4) 511*511*510 

510 ASUMR=8SUMR 
ASU1 I «3SUMI 
R0L01M*RNEW1M 

500 ROLD R E*RNE WRE 

511 RETURN 

ENO 


BES43690 

BES43700 

BES43710 

BES43730 

8ES43750 
B E S 4 37 60 
BES43770 
B E S 437 80 
8ES43790 
B E S 43800 
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3.3.12 Subroutine SICI 


Purpose: 


This subroutine evaluates the sine and cosine integrals 


X 

Si (X) = f SIN(t) dt , X > 0 

CO t 

X 

Ci(X) = / COS(t) dt , X > 0 

00 t 


as taken from reference 55. 
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iinonnrmnniiniiooncMmiKiniiooiiniioiicmonofion 


SUBROUTINE SIC I ( SI.C I ,X» 

#♦** ***************** ****** ** ******************* ****************** 
PURPOSE 

COMPUTES THE SINE AND COSINE INTEGRAL 
USAGE 

CALL SICI (Sl.CI.Xi 

DESCRIPTION OF PARAMETERS 

SI - THE RESULTANT VALUE SI IX) 

Cl - THE RESULTANT VALUE CIIXl 

X - THE ARGUMENT OF SIIX) AND CIIX) 

REMARKS 

THE ARGUMENT VALUE REMAINS UNCHANGED 

SUBROUTINES AND FUNCTION SUBPROGRAMS CALLEO 
NONE 

METHOD 

DEFINITION 

SI (X) « INTEGRAL! S INCTJ/TI 
CIIXI »INTEGRAL(COS(T>/T) 

EVALUATION 

REDUCTION OF RANGE USING SYMMETRY 

DIFFERENT APPROX IMATIONS ARE USED FOR ABSIXI GREATER 
THAN 4 AND FOR ABS(X) LESS THAN 4. 

REFERENCE 

LUKE ANO R I HP « ♦POLYNOMIAL APP ROX I MAT I ONS TO INTEGRAL 
TRANSFORMS** MATHEMATICAL TABLES AND OTHER AIOS TO 
COMPUTATIONS. VOL. 15. 1961. ISSURE 74, PP. 174-178. 

*************************************************** *************** 


TEST ARGUMENT RANGE 

Z-A3SIX) 

IFIZ-4.J 1, 1.4 
1 Y«14.-Z)*I4.*Z» 

SI — 1.570796326 
IF(Z ) 3,2,3 
l Cl— 1.E75 
RETURN 

3 SI«X*((( II 1. 753141E-9*Y*l . 568 933 E -7 ) ♦ Y*i . 374 163E - 5 ) *Y«-6. 939889E-4 ) 
l*Y*l .964 88 2E-2 ) *Y.4. 3 955C 9E -1 ♦ S I / X » 

C 1*1 I 5.772156E-l*AL3GlZ) l/Z-ZHIlil l . 3 36985E- 1 3 * Y ♦! . 534 9 96E-3)*Y 
i*1.725752E-o)*Y+i. i3 5 999E -« »•)* Y • 99092CE - 3 ) * Y • 3i5iG3E-l))*Z 
RETURN 

4 SI-SIN(Z) 

Y *CU S (Z» 
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Z-4 . fl 

U-H I ( U U 4.048069£-3*Z-2.279143E~2)*Z*5» 5150?0E-2i *Z-7. 261e>42E~2 3 
l*Z*4.937716E-2) *Z-3. 3 32 5 1 9E -3 J *Z -2. 3 146 1 7E-2 ) * Z - i. 1 34953E~5»*Z 
2*6.2 5001 IE -2) *2*2. 583939 E -10 
V-U I UU ( 1-5. 108699E-3*Z*2 .3 1 91 79E -2 > *Z -6. 537233E-2 \*l 
l*7.902034E-2}*Z-4.40D416E-2)*Z“7.94555bE-3)*Z*2. bOi 293E-2) *Z 
2-3.764030E“4J*2-3. 12 241 8E -2 )*Z=o. 64&441E- 7) *2 *2. 503 0006-1 

c i»z * * s i ♦v-r*u) 

SI“"2*<SI*U*Y*VI 
m*j5i>6 0 b 

5 SI-3. 14159360-S I 

6 RETJRN 
ENO 
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3.3.13 Function GRTHFCN 


Purpose: This function evaluates: 

iaz v t \ 
e K (z) 
o 

where K is the modified Bessel function, 
o 

Method: The procedure is as follows: 

1) Compute e lctz . 

2 ) Compute K q { z ) . 

3) Compute the function value. 

Usage: CALLING SEQUENCE 

COMPLEX GRTHFCN ,VALFCN 
COMMON /ALPHA/ALPHA 

• 

VALFCN = GRTHFCN ( Z ) 

Timing: The timing is approximately equal to one unit call to subroutine 

BESIK. 

Accuracy: The accuracy is of the algorithmic type and, in particular, 

is dominated by subroutine BESIK. 

Boeing Commercial Airplane Company 
P.0. Box 3707 

Seattle, Washington 9812^, May 31, 197^. 
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CON’ LEX FUNCTION GRTHFCN(Z) 

A 

W 

COHMON/ALPHA/ALPHA 
COMPLEX CEXP 

w 

ARG « AL PH A* Z 

CEXP - CMPLXI COS (ARG ).-S INIARG) ) 

C 

CALL BESIK(Z«4/BESI0«B£S1 1» BE SKO# BESK1, I ERBES ) 

** 

tm 

GRUFCN « CEXP *8ESK3 

«» 

RETJRN 

END 
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